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TF Services takes the [2C Bus 


Tony Firshman of TF Services has released the first two in a new family of I2C bus 
hardware interfaces - here is the information we promised you. 

The I2C bus was designed by the Dutch electronics giant Philips to simplify hard- 
ware interfacing to computers, The Minerva MkIl (RTC) rom adds a battery-backed 
ram and a clock using the I2C bus. Computer users can also get a cable and a 9- 
pin D connector to allow other I2C devices to be added. There are a wide range of 
interesting items from phone diallers, LCD and relay drivers, teletext chips to micro- 
processors and many radio and TV controllers. The Minerva will not, however, allow 
the use of microprocessors and other devices needing dual bus masters with the 
QL 

TF Services’ interfaces are based on the parallel and analogue I2C chips. 

The interfaces themselves are in small boxes with high quality double-sided circuit 
boards. They are linked to each other by 15-pin cable-less D connectors, and each 
interface contains two I2C chips, each of which can have one of 8 addresses (set by 
DIP switches). Power and signal lines are taken from the Minerva connector, and at 
least four interfaces can be powered without using an extemal power supply, 

The software which comes with the connectors is designed to make reading and 
writing to the devices easy. Only the device address (0 to 7) is needed to read from 
either device, and to write, only the address and data are needed. The code can 
multitask in compiled SuperBasic programs. Machine code traps are provided for 
machine code programmers. Both devices are accessed at close to the maximum 
speed to 100 Kbits per second. 

Data is only received and sent on a single data line after successful completion of 
a handshake protocol, which includes a unique l2C chip address. 


The ANALOGUE INTERFACE can handle 8 bytes ADC (analogue to digital) and 
two bytes DAC (output). It can be used directly for such tasks as frequency analysing 
- one customer who works for tv transmission links is planning to use the QL and an 
analogue interface to link to an x/y frequency plotter. Other uses include tempera- 
ture measurement - taking direct readings off many temperature probes, with only a 


resistor network added to give the appropriate voltage range. TF Services use 
Front End From | inecostais to provide position readings when running their “intelligent” robot demon- 
strations, Simon Goodwin is investigating sound sampling and playback. (Because 
Hessler 


of speed on the l2C bus, music will never be very high quality, but acceptable 
speech should be possible. It could be used as the basis or a computer-based mul- 
timeter, low frequency meter/low frequency oscilloscope. 

The PARALLEL INTERFACE provides 16 two-way lines to read binary data 
(high/ow). Output is high enough to drive LEDs, but has to be stepped up to drive 
relays/motors and so on. It can also be used for direct input to many digital model 
train controllers. 

Future parallel circuit developments include a “power driver’ to switch up to four 
amps. This is mainly to drive up to eight motors unidirectionally, but can also link 
into an 8-relay device (also on the drawing board) for mains or low-voltage switching. 

The Parallel interface is priced £25, and the analogue interface £30, from TF 
Services, Holly Corner, Priory Road, Chavey Down, Ascot, Berks SL5 8RAL Note 
TFs new address! Tel. 0344 890986. Fax and scrolling modem 0344 890987. 

I2C data sheets, and control software and manuals can be bought for £2 an item 
without the interfaces. 


Albin Hessler has produced a 
new desktop front end for Qdos- 
compatible systems. Billed as “the 
ultimate pointer-driven desktop pro- 
gram for Qdos-compatible systems’, 
CueShell has freely-sizable windows, 
drag-and-drop graphics copying, 
pan/scroll/slide bars, 
system/jobs/hotkeys control, saving 
of window sizes and catalogue sort 
orders, supports all screen resolu- 
tions and is easy to configure and 
put into use. (Albin Hessler has spe- 
cialised in making processes easier 
in the past) 

CueShell can be used for file man- 
agement, or for file-name selection 
from other programs. It requires 
expanded memory, and Albin recom- 
mends use of a mouse. Upgrades 
will be available for the cost of 
postage in International Reply 
Coupons. 

The program will cost about 
DM100, Enquiries to Albin Hessler 
Software, Im Zeilfeld 25, D-72631 
Aichatal, Germany. Tel (and fax) 
010 49 7127 56280. 


International Meeting in February 


Sinclair QL User Club eV are to hold an Intemational QL Meeting in Germany on: 
Saturday 19th February 1994. 

The meeting will be held at the University of Bielefeld in North East Germany, not 
very far from Munster where International QL Meetings have been held before. 

Franz Herrmann has prepared a full pack of information including street maps, 
train connections, accommodation and sightseeing. 

The address to contact is Sinclair QL User Club eV, c/o Franz Herrmann, 
Talstrasse 21, D-53545 Ockenfels, Germany, or via Internet: Franz_Herrmann @ 
bn.maus.de. (No unencoded material, no large texts please) 

See Franz's letter in Open Channel this month. Also reported to be happening 
some time next year (no dates fixed yet) are meetings arranged by Qltaly and Ergon 
Development in Italy, and IQLR in Newport, USA 
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QUBBESOFT GO INTO 
DISK INTERFACES 


Qubbesoft now expect to release their Fastnet QL 
networking interface at the end of January, priced 
around £120 for a two-board unit, which will link QI to 
QL ST to ST or QL to ST, The boards are with the pcb 
makers as we write. 

Ron will be showing off Fastnet at Andrew 
Frannick's QL show at Blackrod, Bolton on 23rd 
January; Quanta’s Edinburgh show on 12th February, 
and Franz Herrman's International QL Meeting in 
Bielefeld, Germany, on 19th February. 

Qubbesoft are also launching a new QL hardware 
product shortly following the Fastnet. This is an IDE 
hard disk interface, codenamed QUBIDE. “Stuart 
thought up the name”, says Ron. Miracle's Stuart 
Honeybaill also thought of a way to connect the inter 
face to the QL rom slot to plug-and-go, without an 
extra adaptor board. The Qubide may be ready by 
February 1994, at a price between £75 and £100. The 
closer they can get it to £75, says Ron, the happier 
they will be. The Qubide will drive one hard disk of up 
to 120 megabytes, which is plenty for nearly any 
application other than industrial cad or dtp, and more 
than enough for all the QL’s memory-efficient applica- 
tions. For more information contact Qubbesoft on 
0376 890986. 


MER2Z’S NEW 
MULTITASKING CHESS 


Jochen Merz Software have a brand new, multi- 
tasking chess program, Black Knight, for the Pointer 
Environment. 

Black Knight runs with a 5000-move opening 
library, 10 levels of play from 5 seconds to 1 hour, 
and a chess clock. It can set up positions and load 
and save games. 

Because the program will seize, in true battle fash- 
ion, almost as much memory as it can find to run the 
largest possible transposition tables, Black Knight 
benefits from hardware enhancements. However, it 
will run on a minimum of 640K memory, and will mul- 
titask with other programs (including itself) provided 
you tell it at the start how much memory you want to 
remain free. 

The Pointer Environment (which is not supplied) 
must be installed before the game starts. Black 
Knight runs with the Gold Card, Atari STs with a QL 
emulator, and the QXL as well as other expansions 
with sufficient memory. TKIl's default data directory 
can be used to load and save if it is present, but is 
not necessary. 

Both the mouse and cursor keys can be used, and 
Black Knight will disallow illegal moves. 

The exclusive distributors of Black Knight are 
Jochen Merz Software, Im Stillen Winkel 12, D- 
47169 Duisberg, Germany. Tel. +49 203 501274. 


QL World has a copy of Black Knight for review. 
Please contact the Editor. 


Welsh Board 
Tackle 
Spelling! 


The Welsh Language Board 
has come up with a Welsh 
Language spellchecker, a gar- 
gantuan task when one Welsh 
verb can produce 100 forms. At 
present, the spelichecker can 
only detect routine typos - full 
error detection can only be 
achieved when a grammar 
checker is incorporated as 
well, for reasons which we're 
sure a Welsh speaker would 
like to explain! Unfortunately, 
the first release is only for 
WordPerfect 5.1 on you-know- 
what, but maybe some enter- 
prising supplier could build the 
vocabulary into one of our QL 
word processors. Qwyll, for 
instance? 

For more information contact 
Huw Owen, The Welsh 
Language Board, Longcross 
Court, 47 Newport Road, 
Cardiff CF2 1AD. Tel. 0222 
488745. 


10 YEARS OF DIGITAL 
PRECISION TOO! 


Digital Precision are celebrating their 10th Anniversary in 1984. 
Digital, the longestlasting QL software company, launched their 
range after many months of preparation with three programs: QL 
Super Sprite Generator, QL Super Monitor (with free 68000 
Disassembler) and QL Super Backgammon. t's fair to say that 
these products nicely represented the interest of Freddie Vachha, 
Digital Precision’s substantial genius loci, in practical utilities and 
serious game programs. 

QL Sprite Generator and Super Backgammon are still in the cata- 
logue, and Super Monitor has been replaced by QMon Machine 
Code Monitor. Over the years these three have been joined by no 
fewer than 80 other programs, from Lightning (for many their first 
experience of a fast QU to Perfect Pointer Tools, the Perfection 
wordprocessor to the Conqueror PC emulator, Professional 
Astrologer to Eye-Q graphics, Turbo Basic Compiler to Micro 
Bridge. 

Digital's first advertisement naturally went with a splash, a full- 
colour page with discounts for buyers of two or three programs, 
and an appeal for good original QL software. And there for the first 
time was the distinctive Digital Precision logo. 

Extraordinary as it may seem now, in the early days Digital 
Precision proceeded gradually, advertising occasionally and build- 
ing their list slowly. By the end of 1986, however, they had trans- 
ferred from Manor Road to 222 The Avenue, where they still are 
today, and added Professiona! and Super Astrologer, Eye-Q, 
Supercharge, Super Media Manager, Superforth and several games. 
The rest, as they say, is history! 

Scan Digital Precision’s software menu on pages 2 and 3. 
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Open 
Channel 


Open Channel is where 
you have the opportunity 
to voice your opinions in 
Sinclair QL World. Whether 
you want to ask for help 
with a technical problem, 
provide somebody with an 
answer, or just sound off 
about something which 
bothers you, write to: 
Open Channel, QL World, 
The Blue Barn, Tew Lane, 
Wootton, Woodstock OX7 
1HA 


Non-Hexed 


For people who don't 
want to try changing hex 
bytes to fix the Abacus 
AMEND bug in West 
Midlands Xchange, as 
described by Ron Stewart in 
QL World IL9, | am sending 
a listing that will fix it 

Howard Clase 
St. Johns 
Newfoundland 
Canada 


PS - Budgie?! That's a 
common or waterside 
Kingfisher! What did you get 


in nature study? 

Mostly disembodied bulls’ 
eyes. The birdie is in fact 
Alcedo Atthis Barkerii, 
whose characteristics are a 
short beak and a garish 
habitat It goes around in 
pairs, and lives on those lit- 
tle fish sometimes found 
swimming in monitors, and 
any bugs it can find. Every 
programmer should have 
one! 


Downloadable 
Dumfounding 


| would like to thank you 
and your team for a fine 
magazine. The articles are 
always meaningful to most 
of us ... have you ever read 
the average photo or radio 
magazine, or ..? 

But | have some com- 
ments and hopes for the 
future. My set-up consists of 
a boxed QL with Gold Card 
and Minerva, with two 720K 
and two ED drives, external 
keyboard and the Mersey 
Mouse. The printer is a NEC 
Pinwriter P2200. 

| have managed to get 
Wordperfect operational 
using the four drives (flo4_ 
as a pseudo hard disk), but | 


» REMarkw A proevram 
Midiands 
causes a 
function 


iG REMark 

ib RiMark 
REMark 
REMark 
REMark 
REMark 


CLS: 


still prefer Perfection SE and 
to use the QL as a QU 

Now for some time | have 
envied other people with 
their more modern printers 
having available the extra 
fonts built in. Being one of 
the thousands thrown onto 
the heap by the march of 
time and the latest techno- 
logical innovations, | can't 
go out buying the latest 
gear or expensive programs. 
ve played around with 
some of the relevant progs 
from the Quanta library, and 
was impressed by the 
Borman_Fonts. 

But it's obviously not as 
simple as that! having 
become a little disillusioned 
and not a little confused 
about the whole thing, not 
getting the results | wanted, 
| wondered if there’s a 
chance that QL World might 
have a future series, includ- 
ing answering the following: 

Just what is the nature of 
built-in fonts in a printer? 

Do downloaded fonts to 
the printer look the same to 
the Ser port as inbuilt ones? 

Can these be used in the 
same way (say, from 
Perfection) as the normal 
fonts, ie underlining and 
Bold? 


VD version o2 


Lo Fix &@ Bug in the 
Achange 
crash when the ABACUS 
is used on a Gold 
See QL World 1993 Volz #9 p 10 


Would it be feasible to 
use Olde English and the 
like in Perfection and get a 
printout in the same font? 

Also, would it be possible 
to do a rehash (they must 
have appeared some time, 
somewhere) of listings to 
Search and Replace (strings 
on a disk file)? And disk 
comparison and file com- 
parison type programs {right 
up Simon's street, perhaps). 
Again, many thanks for what 
we are getting. Seasons 
greetings. 

Bryan Orgar 
Ashford 
Kent 


Moving fonts from one 
source to another, especially 
one computer to another, 
can raise unpredictable 
bugs. Sometimes one has 
to refer to the makers of 
both for help. Apart from the 
famous (old) QL overheat, | 
have seen more systems 
(all kinds) crashed by font 
anomalies than any other 
cause! PD fonts give the 
most trouble. Fonts look 
superficially simple, but they 
are complex shapes and 
can be difficult for the oper- 
ating system to handle, 
Oddly, simple fonts seem to 


Wasi 

Cia L 
“amend” 
card. 


Malti 


PRINT"Put your copy of Xchange into” 


PRINT’flpi and press any key when ready.” 


PAUSE (-1): 


ad=41194: 


OPEN#3,flpi_Xchange: 
jong _word$=Check_long_ werd$(ad; 


IF long word$="52390000" 


PRINT “Bug found”. 


BPUT#3\,(ad),6,45,0,1 


IF Check_long word$(ad)="062D0001" 


PRINT 


: ELSE 
END IF 
CLOSE#3 
REMark 


amo 


moo 


fo 
on 


POR bo OS PD Re re BE 


G2 to 
Op 
On 
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“Bug now tixed": 
5 ELSE IF long _word$-"“O62B0001" 

PRINT “Bug already fixed” 
“Not West Midlands’ version" 


DEFine PuNction 
LOCal i,b%,a%: 
FOR izad TO ad+3:BGET#H3\i,a%: 


PRINT 


END IF 


bg="" 


ENG 


iF 


Check iong word$(ad)} 


b$=bPRHEXS( ar, 3) 


give as much trouble as 
fancy ones. 

The office font enthusiast 
says: ‘A downloaded font 
will look just like an ordinary 
printer font. There will be a 
special control code to 
switch to the downloaded 
font just as there is a con- 
trol code to switch to the 
resident fonts. 

On laser printers individ- 
ual fonts are provided for 
bold italic as well as stan- 
dard. | don't know whether 
the bold and italic versions 
fonts for the NEC P2200 are 
stored in the printer as sep- 
arate fonts, or whether the 
printer simply approximates 
bold and italic itself It is 
best to talk to the vendors 
(in this case Digital 
Precision) about fonts your 
wordprocessor can use.” 

! will make enquiries 
about the other matiers. 


Calling QL 
from Germany 


On behalf of all our mem- 
bers we would like to 


express our gratefulness to 
all Sinclair QL User Groups, 
Publications, Hardware 
Producers, Software Houses, 
Dealers and Distributors, for 
your continued support of 
the Sinclair QL and compati- 
bles, with hardware add-ons, 
new software developments, 
new computers and espe- 
cially all kinds of service. 
The situation of the QL 
scene has dramatically 
changed in the last two 
years, and there is a certain 
ambiguity in this process. 

On the one hand, the last 
two years have seen numer- 
ous new products, high 
quality software and several 
successors for the Sinclair 
QL are now being offered, 
and an excellent service on 
commercial and private 
basis, namely user groups, 
printed publications, and 
electronic networks. 

On the other hand, the 
membership of user groups 
is slowly fading away, and 
despite all the modem tech- 
nology available, many 
users are giving up the QLIt 
is Our intention to bring 


SSUES PEE TERSERETIA 


Editor’s notebook 


Our lead article this month is a review of the newest 
upgrade to the long established QL flight simulator, 
Flightdeck, by Bernard Denchfield of Deltasoft. Ray 
Dawson not only assesses the program, but offers a 
guided flight for the newcomer, complete with rotation 


and navigation. 


Bryan Davies is ‘on holiday’, partly due to pressure of 
work and partly due to the fact that his post didn't get 
through before Christmas. One of our contributors mea- 
sured a time lag of nine days for a first class packet 
from Gloucester to Bedford. No doubt others have been 
experiencing the same delays. Our ‘late bug" actually 
helped us get some stuff delivered this month. 

Some late news about the workshop meeting in 
Edinburgh on February 12th dropped onto our doormat 
this moming (we still haven't seen it in Quanta), so the 
best course for anyone in the locality who wants details 
in a hurry is to contact Dr. Alan Perberton at Napier 
University, Craig Lockhart, Collington Road, Edinburgh. 
Tel. 031 660 1826 (evg) 031 650 88920 (day). 

Last but not least - Happy New Year to all our sub- 
scribers, readers, and helpers. Here's to 1994 and next 


Hogmanay. 


these two sides together by 
giving the highly active part 
of the QL scene a chance to 
demonstrate their develop- 
ments and services to the 
more passive users, and we 
want to show pure users 
that the operating systems 
QDOS and SMS2/SMSQ 
have a future. 

We also intend to bring 
together all sorts of people 
interested in the QL for infor- 
mal exchange, to inspire 
each other and direct help. 
Finally, we want to provide 
commercial and private sup- 
port organisations with the 
possibility of demonstrating 
their products or services. 

This is to be realised at an 
International QL Meeting in 
Germany on February 19th 
at the University of Bielefeld, 
north-east Germany. 

It must be clearly pointed 
out that this meeting has no 
commercial background, 
and that it is not profit-orient- 
ed, We are not charging an 
entrance fee, and fees for 
commercial exhibitors will 
be quite low. If you wish for 
more information, feel free to 
contact us for the full meet- 
ing information. 

Franz Herrmann 

Sinclair QL User Club eV 
Talstrasse 21 

D-53545 Ockenfels 
Germany 


POKE 
Modification 


I've taken an interest in Dr. 
Teply's letter. | have not really 
been surprised, because a 
QLCF member previously 
told me that the trick doesn't 
work on his Gold Card 
(recent version) too. 

My mind is that the POKE, 
POKE_W and POKE_L key- 
words work fine on my Gold 
Card (2.26, yellow pcb) in 
their original form, and 
doesn't work in the manner 
with some others GC roms. 

| guess that Miracle have 
modified, for security rea- 
sons, the behaviour of these 
keywords, in order that it 
may not be possible to 
amend QDOS routines. If so, 


they can't be blamed, 
because POKEing in this 
memory area is very risky, 
and a “bad” POKE can lead 
to the QL crashing. 
Provided I've guessed 
right, the solution to this 
problem lies in the program: 


100 base=ALCHP(98) 

110 RESTORE 

120 FOR offset=0 TO 96 
STEP 2 

130 READ motS 

140 POKE_W 
base+offsetHEX(mot$) 

150 END FOR offset 

160 SBYTES 
flp1__pokes_rsp,base,98 

170 RECHP base 

180 STOP 

190 DATA 

“3078.01 10","43FA","0038C","4 
EDO",”7800","61 12""1881" 
200 DATA 
"4E75',"610A","3881","4E75""6 
104""2881"."4E75","7801" 
210 DATA 

"3078","01 18","4E90""661 4""5 
543""6610","2876","9800" 

220 DATA 
"2236","9804","200C","C084"" 
6602"."4E75""584F","70F1” 
230 DATA 
“4E75""0003","FFC6","0550"."4 
F4B""4542""FFC6","0550" 
240 DATA “4F4B'"4557", 
"FFC4","0550","4F4B""454C"" 
0000","0000" 

250 DATA “0000” 


The program creates and 
saves a file which, once 
LRESPRed, makes the key- 
words POKEB, POKEW and 
POKEL ready for use. This 
code is almost the same as 
the one which stands in the 
JM rom. 

Could Dr. Teply use 
POKEB, POKEW and POKEL 
in lieu of POKE, POKE_W 
and POKE_L: | think this trick 
will also (for the same rea- 
son) allow him to modify 
Font 2 of the QL character 
set. 

Please, somebody, let me 
know if the “cursor colours” 
trick now works, and correct 
mistake(s) if you then intend 
to publish this other trick. 

Bruno Coativy 
Rennes 
France 
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INFORMATION 

Program: Flightdeck V1.03 
Publisher: Deltasoft via DUC, 
41 Bro Emrys, Tal-Y-Bont, 
Bangor, Gwynedd LL57 3YT. 
Tel. 0248 354023. 

Price: £15 cartridge or 3.5 in 
disk. Will run on unexpand- 
ed QLs. 


Written mainly in machine 
code, Flightdeck allows you 
to “fly’ a twin-engined jet air- 
liner, and provides 3D views 
of the “world” outside and a 
database of 25 UK airports 
and over 200 navigation 
beacons, The plane has twin 
VHF omnidirectional range 
and distance measuring 
equipment (VOR/DME), auto- 
matic direction finding (ADP), 
and instrument landing sys- 
tem (ILS). 

If you want to fly a fight air- 
craft under the bridges of the 
River Thames, this program 
is not for you, but if you want 


to fly by instruments to major 
UK aifports, this is your pro- 
gram. lf you have watched 
the Boeing 737 flight simula- 
tor on The Krypton Factor on 
tv, then this is perhaps the 
easiest way to visualise 
Flightdeck. In the tv pro- 
gramme, contestants must 
land the aircraft using only 
instruments. Flightdeck's 
graphics are not in the same 
class as the 73 simulator, 
but a brave effort has been 
made by Bernard Denchfield 
to provide a meaningful view 
from the window, within the 
constraints of cost and 
graphics. 

This view can be widened 
by 30 degrees in each direc- 
tion by pressing the appro- 
priate keys - just as if you 
were turning your head from 
side to side in a real cockpit. 
At startup, the pilot is provid- 
ed with a screen to set up 


WIND SPEED.... 


amount of fuel, aircraft take- 
off weight, sound effects 
(on/off), and performance 
limits (on/off). This latter 
option provides for future 
expansion, but | cannot think 
what form this would take! 
Pre-flight checks are last 


Octas and Cloud 


The 2- and 8-octa cloud- 
bases refer to the cloud 
cover in “one eighth of the 
sky’ increments. One octa is 
one-eighth cloud cover, 2 
octas is two-eighths, and so 
on. 8 octas means complete 
cloud cover. Setting the 2 
octas level at 6000 ft, say, 
means that above 6000 ft 
one would expect to be in 
cloud 25% of the time, the 
cloud gradually increasing 
until 100% cloud cover 
would be encountered at, 


WIND OIRECTION.... 
2 OKTAS CLOUOBASE..... 
8 OKTAS CLOUDBRSE.... 


PRSSENGERS «ae 
FUEL case eeaee 


AIRCRAFT TAKE OFF WEIGHT. ..eaues 


SOUND EFFECTS... 
PERFORMANCE LIMITS... 


the parameters for the flight. 
- see Figure one for the 
menu - using the up/down 
cursor keys and the left/right 
cursor keys. The flight is initi- 
ated by the space bar. 

The selectable parameters 
are windspeed, wind direc- 
tion, 2 octas and 8 octas 
cloudbase (more of this 
later), location, altitude, head- 
ing, number of passenger, 
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Ringway when looking in a 
westerly direction - the 24 is 
the magnetic compass bear- 
ing of the runway, cut to two 
figures and rounded to the 
nearest 10 degrees. The 
actual heading of this run- 
way is 238 degrees, The rec- 
iprocal bearing is 058 
degrees, ie “Manchester 06", 
- the same runway from the 
opposite direction! When a 
landing is made on the ILS, 
the instrument displays the 
magnetic bearing 238 at the 
top as the selected Radial 
Beam, and its reciprocal 058 
at the bottom to verify this. 

The runway’s magnetic 
heading is essential for a 
correct and successful 
approach and landing. 

| found the starting altitude 
particularly useful, especially 
to avoid doing “take-offs” 
when practising landing, and 
you will need a lot of prac- 
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say, 8000 ft, if that value had 
been chosen as the 8 octas 
cloudbase setting. 

The start location must be 
selected from the database 
by cycling through with the 
left-right cursor keys. Some 
25 UK airports are included. 
Different runways may also 
be selected. For instance, 
“Manchester 24” is the main 
runway at Manchester 


tice before you can execute 
a perfect landing. This option 
puts you at a pre-deter- 
mined height above the air- 
field and on a pre-selected 
heading. Then you fly off for 
about ten miles, do a 180- 
degree tum and, having set 
the correct instrument 
Landing System frequency, 
NAV1, make an approach 
and landing, using the ILS 


instrument Landing System. 
The sound effects can get 
a bit wearing, but | found 
them useful initially, as the 
engine noise saves looking 
continually at the throttle 
indicators to establish the 
thrust from each engine and 
adds a sense of reality. The 
squeal as the tyres touch 
down also adds reality on 
lading. The alternative - if 
you've made a hash of the 
landing - is a pair of black 
“curtains” closing across the 
window, with by a cryptic 
message such as “Crash - 
Undercarriage Not Down" or 
“Crash - Nose Wheel 
Collapse” Fortunately, on a 
simulator one can always 
press the “Angel switch” and 
put the aircraft safely at the 
beginning of the simulation. 


Manchester 24 


A glance at Figure two will 
give you some idea of the 
Instrument Panel and the 
view of “Manchester 24” run- 
way before takeoff. The 
panel is very well laid out, 
with 8 main dials. Engine, 
flap and landing gear indica- 
tors are in a “box” at the 
upper right of the panel. The 
navigation aid frequencies, 
NAV1 and VAV2 plus the 
DME1 and DME2 readings 
of the distance measuring 
equipment, along with ADF1 
automatic direction finding 
beacon frequency, and the 
Fuel Indicator, are in another 
“box” at the bottom right. It is 
the VHF omnidirectional 
range, VOR1 and VOR2 fre- 
quencies, which are dis- 
played as NAV1 and NAV2 
in this box. DME1 and DME2 
indicate the distances from 
those beacons. This enables 
you to get an accurate fix of 
your position, providing the 
aircraft is within range of the 
right beacons. If it is out of 
range, the VOR instrurnents 
display a red light to show 
that they are inoperative. The 
top left dial is the air speed 
indicator (ASI), calibrated in 
knots and with a digital 
readout at its centre. This 
measures the speed 
through the air {as opposed 
to speed over the ground) - 


there is a difference due to 
wind, 

The artificial horizon is a 
square window with calibrat- 
ed scales down each side. A 
shaded area in the square 
gives the aircrafts altitude. 
The larger scale markings 
represent 10 degrees of 
inclination, the smaller divi- 
sions represent 5 degrees 
within a maximum of plus 
and minus 20 degrees. If 
you can imagine looking 
straight anead through a 
square window in the cock- 
pit : in level flight, the horizon 
would appear to be across 
the middle of the window 
and horizontal. If you are fly- 
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ing “right way up’, then the 
ground appears below the 
horizon and the sky above. 
The ground is shaded green 
and the sky white. If the air 
craft is “nose up”, the horizon 
moves upwards towards the 
top of the window. If the air- 
craft banks, the artificial hori- 
zon tilts, the degree of bank 
being shown on the scales 
at either side, 


Next comes the Altimeter, 
calibrated in feet with a digi- 
tal readout at its centre. It 
gives the aircraft's height 
above ground, (All airfields 
are assumed to be at sea 
level. This eases the burden 
of adjusting the altimeter for 
each airfield's height above 
sea level) 

On the extreme right is the 
VOR1 indicator (VHF omnidi- 
rectional range number 1) 
which also doubles as the 
instrument landing system 
(ILS) indicator, and this will 
be covered later. 

The bottom left hand 
instrument is the turn co- 
ordinator. This indicates the 


Che 


rate of tum by means ofa 
tilting horizontal line, similar 
to the artificial horizon. This 
line represents the aircraft's 
wings. The instrument has 
calibrated marks to indicate 
a Rate 1 turn, that is to say, a 
turn of 3 degrees per sec- 
ond change in the aircraft's 
heading. However, this 
instrument does not indicate 
the angle of bank, which is 


handled by the artificial hori- 
zon. Incorporated in this 
instrument is the balance 
indicator, which is used to 
determine if the aircraft is 
“skidding” or “slipping”. This 
instrument contains a ball in 
a tube, which is displaced 
sideways by a sideways 
force, as may occur by 
applying rudder without an 
appropriate degree of bank, 
causing the aircraft to “yaw” 
or go into a flat turn, a most 
uncomfortable feeling. This 
rarely happens with this air- 
craft, as all turns are co-ordi- 
nated using aileron only, the 
correct amount of rudder 
being applied automatically, 
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The effect of skidding or 
slipping can only be experi- 
enced by using the rudder 
alone, causing it to skid, or 
by applying too much bank 
for the aircraft's speed to 
support, causing it to slip 
and possibly stall. There is 
an audible stall warning 
device. If this is ignored, then 
a ‘stick pusher’ automatical- 
ly prevents a stall by push- 
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ing the stick forward to put 
the nose down. The air 
speed then increases and 
prevents the stall. You can 
still crash, though! 

Next comes the automatic 
direction-finding (ADF) and 
compass. The compass 
requires little further com- 
ment, but the ADF beacons 
do. Each beacon transmits a 
signal on its specified fre- 
quency, at an equal strength 
to all points of the compass. 
The ADF needle in the air- 
craft always points to the 
beacon. It points vertically 
upwards when flying directly 
towards a selected non- 
directional beacon. If the 


downwards, as the beacon 
is now behind you. 


Climb and 
Descent 


~ Next is the vertical speed 
indicator (VSI). This indicates 
the rate of climb or descent, 
and is calibrated in thou- 
sands of feet per minute. 
When the needle is above 
the horizontal, the aircraft is 
climbing, and when below, it 
is descending, the rate of 
climb or dive being indicat- 
ed on the marked space. 
The bottom right hand 
instrument is the VOR2 (VHF 
Omnidirectional Range 


radial and fly towards, or 
away from, the beacon. The 
VOR/ILS beacon for each 
airfield is on the extended 
centre line of the runway so 
that flying along this radial, 
towards the airfield ensures 
the aircraft is on the correct 
heading. The ILS beacon 
also has a vertical fan 
shaped set of beams, to 
enable the aircraft's height, 
relative to its distance from 
the airfield, to be monitored. 
One of this set of beams 
enables a 3-degree “glide 
path” to be defined to assist 
a perfect approach and 
landing. Deltasoft are to be 
congratulated for a smart bit 


EE 


needle moves to the right 
(clockwise), then the aircraft 
must be tumed to the right 
to bring it back onto the cor- 
rect heading. and converse- 
ly for the left. The aircraft's 
magnetic compass heading 
is displayed at the centre of 
this instrument. When an 
ADF beacon is overflown, the 
needle swings through 180 
degrees and points directly 


Number 2), and is similar to 
VOR1, except that it does 
not have the additional ILS 
facility. These beacons send 
“radial” signals just like the 
spokes of a wheel. Each 
beam is separated by 1 
degree so there are 360 of 
them in all. By adjustment of 
the VOR, you can identify 
which radial the aircraft is 
crossing and tum on to that 
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of programming here. 
Perhaps the easiest way of 
learning about this is to do 
it. Climb aboard! Strap your- 
self into the right hand seat. | 
will be in the left hand seat 
as the Captain, and we will 
go from Manchester to 
Liverpool. You have already 
guessed that | come from 
the North by my accent, and 
| have selected two northern 


ns © 


airports, but the same rules 
apply when flying a short 
hop, or a much longer flight 
from Boumemouth to 
Aberdeen. It is much more 
realistic if you have got an 
air map of the terrain. If not, a 
road map will do. 


Take a Map 


Draw a pencil line on your 
map from the start point to 
your destination, and mea- 
sure its true bearing with a 
protractor. Convert this to a 
magnetic bearing by adding 
the magnetic variation, Ccur- 
rently about 6 degrees west, 
and so arrive at the com- 
pass “course to steer’. Look 
along this line and establish 
which ADF or VOR beacons 
you need. If you're clever 
enough to be able to navi- 
gate in windy conditions, set 
up a wind speed and direc- 
tion from the opening menu. 
Make the corrections to your 
heading if you do this. 

We will assume no wind 
and a clear sky and set the 
2 octas cloudbase at 6000 ft 
and 8 octas at 8000ft. We 
will fly at 4000 ft, so the trip 
will be cloudless. Set the 
location to “Manchester 24”, 
altitude to 0 ft, and the head- 
ing will automatically set to 
238 degrees. Leave the pas- 
sengers, fuel and takeoff 
weight as default, and move 
the cursor to preflight 
checks, 

Look up the frequency for 
Liverpool 27 ILS beacon - 
Ident ILQ - and get ready to 
set it on the ILS instrument, 
VOR1. Having pressed 
Space to start the flight and 
entered these frequencies 
as NAV1 and NAV2, check 
the Idents to ensure you are 
correct. Setting ADF1 to the 
same frequency as VOR2 
may help navigation. 


Simulators Only! 


lf you do any real flying, on 
no account must you use 
any of the VOR, ILS or ADF 
frequencies listed, or any- 
thing else in this program, 
while actually in the air. 
These frequencies are for 


simulator use only - you 
have been warned. Do a last 
check, take a look around 
to see the sky and runway 
are clear, select 10 degrees 
takeoff flap, open the throt- 
tles together slowly and 
evenly to full thrust 

As the aircraft starts to 
move, keep straight and 
level, using the rudder, if 
necessary, watching the air- 
speed indicator. With 100 
passengers on board and 
11000 kg of fuel, the “rotate” 
speed (take-off speed) will 
be about 150 knots. As this 
approaches, pull backwards 
steadily on the control col- 
umn and the aircraft will 
gently become “unstuck’, 
and climb. Hold this position 
until the artificial horizon indi- 
cates about 15 degrees of 
climb and then move the 
stick forward to maintain this 
attitude. Check the climb- 
and-dive instrument for a 
positive rate of climb, and 
raise the landing gear, 
checking that the gear warn- 
ing lights go red toconfirm 
this. As the speed passes 


240 knots, raise the flaps. 

While climbing, ease back 
the throttles to about 70% 
thrust and tum the aircraft to 
its correct heading as per 
your flight plan, in conjunc- 
tion with the navigation 
instruments. In a short time, 
VOR1 and VOR2 will indi- 
cate that they are opera- 
tional {the red warning lights 
will go off) and the DME (dis- 
tance measuring equipment) 
on VORs 1 and 2 will show 
the distance to your destina- 
tion These are not the same 
because one is the ILS bea- 
con and the other is the 
VOR, a few miles apart - the 
ILS beacon is lined up on 
the runway and the other 
some distance away in the 
fields. Level off at about 4000 
ft. 

Try to check which “radial” 
you are crossing via the VOR 
instruments. It is important to 
get the final tum on the cor- 
rect heading for your 
approach. In a big aircraft 
the controls will take effect 
slowly due to inertia. About 
10 miles from Liverpool start 


descent by slightly reducing 
thrust and lowering the nose 
gently. Balance a reasonable 
rate of descent against throt- 
tle settings. When you are 
below about 235 knots, 
lower flaps and undercar- 
riage, checking the waming 
lights. Raise the nose slight- 
ly, as increased draft from 
the flaps and undercarriage 
will enable an even descent 
with the nose about 3 
degrees up. Adjust power 
and pitch attitude to keep 
the cross wires on the ILS 
aligned on the graticule. If 
the vertical wire is to the left 
of the centre line, you must 
do a gentle left turn to cor- 
rect it Do not chase the 
instrument backwards and 
forwards - make small cor- 
rections and wait for them to 
take effect. You should now 
see the runway, but watch 
your instruments. The ILS will 
assist you with correct height 
and heading, but you must 
control the airspeed. The 
landing speed is about 150 
knots, so take this into 
account as you approach 


the runway. Fine adjust- 
ments to the controls will 
bring the aircraft safely to the 
threshold of Runway 27. 
“Flair out” by raising the nose 
slightly, then close the throt- 
tles and let the plane sink 
gently onto its main wheels. 
When you hear the wheels 
touch down, ease the stick 
forward to bring the nose 
wheel down and gently 
apply the brakes. 

Well! Height not too bad, 
but the ILS needle says “fly 
right’, and you ignored it. | 
could go on but this is your 
first attempt Many enjoyable 
hours are yours , but be 
warmed - it's addictive. 

The more technically 
minded can extend the 
database of airfields and 
beacons. A full description is 
supplied. If | ever manage to 
execute two consecutive 
perfect landings, | may be 
tempted to try a few 
changes but, up to now, | 
have been fully occupied. | 
cannot resist the temptation, 
so here goes .. Happy land- 
ings, folks! Have fun. 
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Keyboard-90 


Interface 


Alex Munden offers a user report on his “Keyboard for the ‘90s”. 


INFORMATION 


Manufacturer/supplier: Jurgen 


Falkenberg Computer Technik, 
Thanweg 361D-7539 Ersingen, 
Germany. Tel/fax: 010 49 7231 
81058 

UK Supplier: WN Richardson 
& Co (EEC), 8-21 Misbourne 
House, Chiltern Hill, Chalfont St 
Peter, SL9 QUE, Tel: 0753 
888866, Fax: 0753 887149. 


UK Price: Interface only £7500' 
+ p&p, keyboard only £30.00 +, ° 


p&p, Interface and keyboard 
£95.00 + p&p, External fitting kit 
£14.00 + p&p, . 

Throughout QL history, a num- 
ber of replacement keyboard 
systems have appeared bul, for 
various reasons, have fallen by 
the wayside. Now Jurgen 
Falkenberg’s Keyboard-90 inter- 
face allows any AT- or XT-style 
PC keyboard to be connected to 
the QL 


No nightmare 


At first sight, it looks like an 
electronics novice's nightmare, 
comprising a 120x55 mm fibre- 
glass printed circuit board, ten 
ICs, a handful of resistors, 
diodes and capacitors, a crystal, 
a DIP switch and an empty 40- 
pin IC socket. Also attached to 
the board is a length of cable 
and an in-line DIN socket. The 
amount of work required to con- 
vince the QL that it is still con- 
nected to its native keyboard 
can be seen in the form of a 
32K eprom labelled QL-T90, 
which contains the firmware, 
and an Intel 8039 co-processor. 
The remainder of the chips are 
electronic latches and switches. 

Intemal installation of the inter- 
face may look like a major 
obstacle to anyone who has 
never seen the inside of their 
favourite black box, but things 
are not as complicated as they 
seem, What is mainly required is 


confidence and patience, The 
interface board displaces the 
Intel 8049 chip, the QL’s door to 
the outside world. This explains 
the empty socket on the inter- 
face board. Removal is best 
done using an,IC extraction tool 
ora flat bladed screwdriver. IC 
pins are quite soft, and can 
snap off very easily if bent or dis- 
placed. 

You are then left with the prob- 
lem of what to do with the DIN 
socket and its trailing lead. In my 
case, | found that, with a bit of 
persuasion, it could be eased 
into the slot in the Casing along- 
side the tv modulator socket. 

Then comes the moment to 
plug your PC-type keyboard into 
the DIN socket and switch on. If 
everything is working correctly, 
the normal start-up prompts 
should appear on screen. If not, 
press the reset button and try 
again. Your QL should respond 
to the new keyboard as though 
nothing had happened. If the QL 
still sulks, something is obvious- 
ly wrong. Before you go any fur- 
ther, check that the pins on the 
interface board and the dis- 
placed 8049 chip are correctly 
aligned in their sockets. An error 
here is the most likely cause of 
failure. 


Complete 


Now for the good news. For 
anyone who has just read this 
with a sinking heart, a case and 
lead for external fitting of the 
interface are currently available 
from the UK supplier. 

Anyone who has ever encoun- 
tered a PC keyboard may be 
wondering how it relates to a 
QL By now you should be famil- 
iar with the standard Qwerty pat- 
tem, but several key positions 
differ from the QL layout. If you 
purchase your keyboard with the 
interface, this should not be a 
problem, as new keytops will 


already have been fitted. If not, 
i's worth pointing out that the 
“@","#" and copyright symbols 
are where you would expect to 
find them, but the pound sign 
sometimes nestles alongside 
the Enter key. The cursor keys 
are grouped together to the left 
of the main keyboard, and there 
are two extra Control and Alt 
keys, on opposite sides of the 
keyboard. They just duplicate 
each other (like the pair of Shift 
keys) 


All the extras! 


Twelve function keys form a 
row along the top of the key- 
board. F1 to F5 behave as you 
would expect, and F6 to F10 are 
coded as Shift-F1 to Shift-F5. F11 
and F12 are the equivalents of 
Ctr-F1 and Ctrl-F2 and could 
easily be detected by software. 
Also in this row are the ESCape 
key, and three keys marked 
respectively Print Screen/SYSRQ, 
which generates Ctrl-C; Scroll 
Lock, which returns Ctr-F5 and 
Pause/Break, which is the equiv- 
alent of the QL’s Ctr-Space. To 
the right of the number keys is a 
back-arrow key, which dupli- 
cates Ctrl-left cursor as a delete- 
left key. 

To the right of the main key- 
board is a group of six keys 
marked INS, Home, PG Up, Del, 
End and PG Down, or, if you are 
lucky, more coherent equiva- 
lents. INS is the equivalent of Alt- 
Enter, Del replaces Ctr-right cur 
sor as the delete-right combina- 
tion and Home, End, PG Up and 
PG Down are the respective 
equivalents of Alt-left cursor, right 
cursor, up cursor and down cur- 
sor, These have little bearing on 
Psion software but many newer 
programs use these combina- 
tions for screen navigation. 

Finally, to the far right of the 
keyboard, is a 17-key numeric 
keypad. When Num Lock is 


pressed, an indicator led lights 
up, and the pad accepts numer- 
ical input from O to 9, plus the 
decimal point, the mathematical 
symbols and Enter. With Num 
Lock switched off, these keys 
duplicate the cursor and Alt-cur- 
sor keys, together with INS and 
Del. 


Advantages 


So, what's so special about 
attaching a PC keyboard to your 
QL? To begin with, there's the 
quantum leap from 65 to 102 
keys. The keys themselves are 
properly angled for more com- 
fortable input. Anyone who has 
spent hours slaving over a QL 
keyboard will know the strain it 
can place on an accomplished 
touch-typist, let alone the aver 
age “hunt and peck” operator. 
Keystrokes are more positive 
and give a greater degree of 
feedback, especially for non-typ- 
ists who spend most of their 
time looking for keys, rather than 
confirming that key presses 
have been accepted on screen, 
The Caps Lock indicator light is 
a great improvement. particularly 
for those of us who still use 
Psion software, The single key 
replacements for many multiple 
keystrokes are a real boon and 
the separate numeric keypad 
really speeds up repetitive input, 
even for the 10% of the popula- 
tion who are “dextrally chal- 
lenged” (Left handed, for those 
who did not realise that PC no 
longer means personal comput- 
er) 

Allin all, adding a "proper’ key- 
board to a QL gives it a new 
lease of life. It's a bit like getting 
to know the QL all over again, 
now that you have all the bene- 
fits of Qdos and reali multi-task- 
ing, coupled with the advantage 
of a keyboard that does what 
you ask it. 


wes 


e traders Includ- 


ed Tony 

Firshman, Bill 

‘EEC’ 
Richardson, Ergon 
Development, Miracle 
Systems, SPEM, the Qltaly 
user-group and Qubbesoft. 
The venue was a large room 
on the top floor of Reggio's 
modem Civic Centre, with 
that all-important en suite 
pizzeria. Admission was free 
to both traders and cus- 
tomers. 

Roberto Orlandi and Eros 
Forenzi of Qltaly were 
among the first to arrive, with 
an impressive A4 magazine 


COYY/ 


QL Mondo, copies of their 
disk newsletter, QPac 
upgrades, QL books in 
Italian and many items of 
hardware and software for 
sale. 

These two are Qdos fanat- 
ics, with 'QL' stickers on the 
backs of their cars which 
confuse lesser Italians, for 
whom ‘QL’ is an abbreviation 
for a fraction of a ton. When 
Computer Shopper had a 
QL column Eros used to 
drive 50 kilometres to 
Switzerland each month for 
his 88p copy! 

Since the demise of 
Sandy, SPEM have been 


kings of the Italian QL hard- 
ware scene. They were 
showing off their QL expan- 
sion keyboard, which has 
gained a new lease of life 
since the arrival of Hermes, 
and their impressive 
System2 QL expansion 
chassis. 

This is a white metal box 
with a flip-top lid, with fittings 
for the QL circuit board, hard 
disk, two floppies, two micro- 
drives, power supply and all 
your interfaces. With the 
exception of the microdrive 
extension port, all the 
Sinclair connectors remain 
available around the edge of 


h italian 


Despite torrential floods and a national 
railway strike, QL enthusiasts from Italy 
and the UK flocked to Reggio Emilia for 
the 5th Italian QL Show this autumn. 


the chassis. 

System2 found users on 
several stands at the show, 
alongside custom variants, 
QXL-powered PCs, and orig- 
inal QLs. Even ane shy 
Amiga 500 made an 
appearance. If you have no 
qualms about sawing your 
QL in half, to extract the 
microdrive mountings, the 
System2 is almost certainly 
the QL box for you. SPEM 
also sell a range of expan- 
sion boards and EPROM 
cartridges. 

Ron Dunnett, Tony 
Firshman and Stuart 
Honeyball had planned to 
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travel by train and their cus- 
tomary folding bicycles. Alas 
Italian railway workers took 
Sunday off in protest at 
impending privatisation. The 
contingent arrived, sleepless 
but intact, after an eventful 
17-hour drive from Paris, 
dodging storms, Alps and 
flooded motorways. 

| arrived by plane and train 
a couple of days early, the 
guest of Ergon boss Davide 
Santachiara, and spent an 
entertaining weekend trying 
to coax secrets of the 
ZM/HT compiler from its 
enigmatic co-author Marco 
Ternelli. Ergon’s best-seller at 
the show was their new Disk 
Utilities, capable of repairing 
Gold Card HD and ED disks, 
and formatting HD to over 
1.52 megabytes. Gold Card 
and Spectrum fans upgrad- 
ed to the new ZM/128 emu- 
lator. 

Stuart Honeyball of Miracle 
Systems gave a talk on QXL 
and his plans for the future. 
The next release of QXL will 
include network and serial 


device support, with floppy- 
disk formatting not far away. 
The new SuperBasic inter- 
preter has been delayed, 
because Laurence Reeves 
has broken his arm. 

Work on the ‘low-cost’ QL 
SCSI interface is well under- 
way, but Stuart told the show 
that the QL graphics board 
is on the back burner till the 
QXL software is more com- 
plete, Meanwhile QXL users 
can expect regular software 
updates. 

Tony Firshman demon- 
strated the first production 
peripherals for his Minerva 
\2C interface. These black 
boxes are labelled in red 
and festooned with D-type 
sockets. They are controlled 
by the same Philips circuits 
as Minerva’s Mark 2 clock 
chip, and you can connect 
up to eight interfaces of 
each type to one QL Large 
collections will need an 
external power-supply. 

The eight-bit Analogue 
interface has eight inputs 
and two outputs. The sim- 


pler digital interface has six- 
teen five volt outputs which 
can be turned on or off from 
SuperBasic, or re-pro- 
grammed as digital inputs. 
Hiigh power versions for AC 
and DC control are coming 
soon. 

Bill Richardson, formerly of 
EEC Ltd, brought hardware 
and brochures from the UK 
and Germany, most notably 
including Jurgen 
Falkenburg's QL hard disk 
adapter, which uses a PC- 
XT interface and drives. This 
really needs a box, but 
should still find users as it's 
the only plug-and-go hard 
disk system currently on the 
QL market. 

Impecunious enthusiasts 
may favour Dirk Steinkopfs 
DIY approach, which uses 
just four TTL chips, worth 
about a pound, to adapt the 
QL expansion connector 
signals to a simulated 
PC/XT slot. A full 68000- 
code device driver is on 
disk, with a circuit diagram, 
utility programs in C and 


documentation in German 
and English. 

Dirk’s kit has been tested 
with OMT] and Western 
Digital hard disk controllers, 
specified in the documenta- 
tion, and suits both MFM 
and RLL drives. It is said to 
co-exist happily with Gold 
and Trump Cards and sup- 
ports QJump level two 
devices, with subdirectories. 
My copy came from Ergon, 
and is freely distributable; 
you can get it from bulletin 
boards, user groups and 
PD libraries, such as 
Qubbesoft's PD disk SPE- 
CIAL 22. 

Participants found it easy 
to communicate in a mixture 
of English, Italian, Latin and 
French, and it is a pity there 
were not more people from 
Northem Europe at the 
show. Perhaps storms and 
railways defeated them. On 
this showing, the QL is 
keenly and imaginatively 
supported in Italy; the next 
meeting should be just as 
rewarding, and hopefully a 
little Sunnier. 


Now available on a QL near you... 


GT-Prolog/QL 


Interactive Workbench (needs 512k) 


Edinburgh Syntax 

Incremental Compiler 

Automatic Garbage Collectors 
Tail-Recursion Optimisation 
First Argument Indexing/Hashing 
32bit integers / 48bit reals 

255 byte atoms / 32kb strings 


* Windows, Menus, Dialogues 


* Editor 
* Debugger 


User Guide, Reference Manual 
Full QDOS compatibility 
Configurable Memory up to 16Mb 


Turbo Performance - Naive Reverse exceeds 5k LIPS (GC) 


Price including postage/packing £89.95 


For more information contact us at 
Rosebank, Stream Road, 
Upton, Oxon, OX11 9JG 


Tel/Fax: 


0235-851818 


Grange 


Technology 
Limited 


Simon Goodwin 
teaches the DIY 
Mouse to emu- 
late keyboard 
entry for older 
programs. 


The small MOUSE_PAINT 
listing is a simple mouse-dri- 
ven painting package in 
SuperBasic, which uses the 
DIY Mouse extensions. It lets 
you move a cursor any- 
where on the screen, leaving 
a trail of dots in one of the 
eight possible colours, 
depending on the combina- 
tion of three buttons being 
pressed as it moves, You 
can view it as a sort of 
colour etch-a-sketch. 

MOUSE _.PAINT needs a 
three button mouse to allow 
access to the full range of 
Mode& colours, but you can 
use it in four colours with a 
two-button Microsoft mouse. 

A real mouse painting 
package would reserve cer- 
tain areas of the screen for 
ink post and other controls, 
rather than dedicating the 


buttons to colour control, but 
the example does show 
how easily colour mouse 
drawing can be implemert- 
ed. 

The PD Qdos emulator for 
the Amiga includes another 
SuperBasic program that 
uses the PTR_ extensions. 
PALETTE_BAS, on the Qdos 
utilities disk, lets you choose 
the QL emulator screen 
colours from a palette of 
4096 shades. You use the 
mouse to select and move 
sliders on the screen, and 
the colours change as you 
do it Alas, this only works on 
machines with palette hard- 
ware. 


we 
Emulation 


It is always best to tailor 
programs specifically for the 
mouse, capable of tracking 
and responding to precise 


Vial 


mouse movements and but- 
ton combinations. 
Unfortunately most QL pro- 
grams were written before 
there was a standard for 
SuperBasic mouse com- 
mands and functions, and it 
would be goad to be able to 
use them with the mouse 
even though they were writ- 
ten for keyboard or perhaps 
joystick control. 

That is the main reason for 
this update to the DIY 
Mouse project The extra 
code in the main listing 
adds optional emulation of 
cursors and other major 
control keys via the mouse. 
Thus the mouse works with 
Quill, ED, Devpae, Turbo, 
Abacus, Spy, Editor, and 
other cursor-controlled pack- 
ages. 

First you must load and 
tum on the appropriate 
code, and set the right baud 
rate: normally BAUD 1200. 
The mouse functions will 


o = Mies it Pas 


now respond to movements 
of the mouse or buttons, but 
keyboard entry will be unaf- 
fected. When you want key- 
board emulation, so the cur- 
sor trackS mouse move- 
ments, issue the new com- 
mand: 

PTR_KEY 1,0 


The mouse will now gen- 
erate cursor key-presses as 
it moves. Use PTR_INC to 
set the speed, and PTR_KEY 
0,0 to turn it off. You can still 
use the keyboard as normal, 
The mouse signals are in 
addition to joystick or key- 
presses. 


Mouse 
Wrapping 


The second parameter of 
PTR_KEY is another switch. 
It allows mouse co-ordinates 
to wrap from one edge of 
the screen tto the opposite 
edge. 
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lf you set PTR_KEY 0,1 
before loading 
MOUSE_PAINT you will find 
that the cursor swaps round 
at the edges of the screen, 
giving you a quick route to 
the other side, top or bottom. 
This ‘wrapping’ is a popular 
option available on Apple 
Macs and other windowing 
systems, It was easy to do, 
so | added it for the second 
version. 

PTR_KEY works like all the 
other commands to set vari- 
ables, which is why I lazily 
implemented one command 
to control both the version 2 
improvements - pointer wrap 
and keyboard emulation. 

The parameters are sim- 
ple switches, with zero 
meaning off, so PTR_KEY 
1,0 turns cursor key emula- 


» 
wactest_x 
vaitest_y 
Liat x 
tmit sy 
3tep_x equ 
step y equ 
button_bits equ 
o¥Ynuhro equ 
inutlal equ 
serial_ooad equ 


a 


equ 
equ 
eu 
equ 


ttrne 
equ 
egu 
equ 
equ 
endc 


BELEE A £ 
drift y 
AGY _i lay 
wrap flag 


fat 4.1 eu 


tion on and co-ordinate 
wrapping off. The order 
should be easy to remem- 
ber once you note that the 
WRAP parameter is on the 
outside. 


PTR_INC 


PTR_INC sets the number 
of mouse pulses that corre- 
spond to one move of the 
cursor in either direction. It 
was introduced a couple of 
months ago, but finds its 
niche in the new version 2 
of the DIY Mouse driver, 
which sends cursor-control 
characters to tasks normally 
controlled from the key- 
board. 

The increment is in 
Mode4 pixels, and starts off 


at 12 in X and 24 in Y. This 
is less sensitive than the set- 
tings for the first version, 
published in QL World 1993 
issue 10, but it works better 
for me. It depends how far 
you want to move with one 
prod of the mouse. 

lf you use Mode® or wide 
Modeé4 characters the cursor 
will respond much faster to 
horizontal moves than to 
vertical ones, and it may be 
worth increasing the X incre- 
ment, with a command like 
PTR_INC 24,24. It pays to 
experiment - some people 
like slower vertical move- 
ment since it reduces the 
risk of moving off the current 
line when scanning left and 
right. 

You can use PTR_INC to 
scale the movement on 


Current co-ordinates 


Kkight 


marg it 
Tcp margin 
Counts per horizonta,. 


Jimit 
famit 
MOVE 


Counts per vertical nove 
Bits shadow sach button 
input byte number, | Lo 
Fwo-button injtial npyte 


4er0 Or 
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seria! 


channe: ibd 
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* 


Two BUTTON KEYBOARD EMULATION & CO-ORDINAT?E 


Li) Kepiace BPL.S with word BPeL to BYTE 
2j; insect BSk BUTTON KEY before storing DO at 


(3) Revised X and Y move handlers: 


fot 
MmGOVe .w 
add.w 
bpi.s 
tst.w 
peq.-s 
add .w 
in_xrange move .w 
near xrange bra 
* 
nove .w 
cmp.w 
bis.s 
LSt.w 
beg .s 
sub.w 
bra.s 
move .W 
bra.s 
ebr.w 
bra.s 


enough_x 


7" 2Out 


horizontal 
latest_x(a4),u0 
a1,d0 

enougn_x 
wrap_flag(a4) 
clear_xout 


WRAPE LHC 


TilKLE 


4s before, 
Check the upper 
Are we wrapping? 


PVATES 


BRP ON iT Ad! 


New line to drive key qucue 


so far 


iimit 


limit_x(a4),a@0 Wrap co-ordinate up 


dO, latest_x(a4) 
next_byte 


limit _x{a4),d1 
dadi,ad 
in_xrange 
wrap_flag({a4i 
Glip_x 

di,do 
in_xrange 
di,da 
in_xrange 

do 4600 
near_xrange Loop via 
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locai 


Local diversion 


Over the top? 
Are we wrapping? 
Wrap co-ordinate down 


Set current ¥ to limit 


lane i 


screen to suit your mouse- 
pad. Staying in Mode® for 
the time being, try PTR_INC 
30,25 for easy character- 
positioning, and PTR_INC 
6,5 if you want fast move- 
ment. Double the first value, 
the X increment, if using 
Mode4, and double the sec- 
ond value to suit double- 
height characters. 


Main Listing 


The main listing this 
month consists of updates 
to the DIY Mouse driver 
source for Version 2. This 
implements keyboard emu- 
lation, so that programs can 
be controlled with the 
mouse instead of joystick or 
cursor keys. The lines have 
been extracted from the full 
MOUSE_ASM source, which 
is available as usual to read- 
ers on disk or cartridge. 

DIY Toolkit Volume | 
includes all the new source 
code, and eight ready-made 
mouse drivers. The volume 
is available by post from for- 
mer Quanta editor Dr. Bill 
Fuggle. Volume | consists of 
SuperBasic prototypes, 
wiring details, example pro- 
grams, assembler source 
and binary code for “Mouse 
Systems PC” and “Microsoft” 
serial mouse drivers to suit 
either serial port. 

DIY Toolkit volumes cost 
three pounds each on disk 
or microdrive cartridge, any- 
where in the world, and 
come with laser-printed doc- 
umentation if you order two 
or more. Twenty four vol- 
umes are available from DIY 
Toolkit, 86 Lordswood 
Road, Harborne, 
Birmingham B17 9BY. 
Please make cheques 
payable to DIY Toolkit, and 
send a stamped self- 
addressed envelope if you 
would tike further details. 

If you really enjoy typing 
you can merge the new 
lines into the source listed in 
previous issues. The new 
lines are intended to be 
added to the first two parts 
of the listing, and come in 
three sections. The first sec- 
tion gives names to key- 


* Corresponding changes to the code to process Y ueitas 


* 


elip_y 

* 
.n_yranqge 
i:Gar_syne 
<:lear_you 


+ 


ORO Wk RK Ka aR KKK KK KRHA K AK KAKA RRR KK KEK KER KKK KKEKK KAKA KKH KR KEK 


* 


+ 
C 


bsr 
move .wWw 
add. 
bpl.s 
tst. 
beq. 
add. 
bra.= 


move .W 
emp. 
b1S.. 
tat. 
beq .é 
sub.i 
bra.s 
move .w 


move .w 
bra 
clr.w 
bra. 


vertical 
latest_y(a4),au 
di ,do 

enough _y 
wrap_flay(aé) 
clear_yout 
Limit_y(a4),d0 
in_yrange 


Orive the keyboari 


DO 1s new candidate Y 
Check the upper limit 
Are we wrapping? 


limit_y(a4j,dl 
d1,dao 
in_yrange 
wrap_fiag(a4) Are we wrapping? 
clip_y 

ai,do wrag co-ordinate down 
in_yrange 
adi,aod 


Over the top? 


Set current Y te iimit 


dO, latest_y(a4i 
clear_sync 
tatest_y(a4) 
near_ sync 


Get ready tor new :vessage 


Return via local late} 


x* 2,0 ** Cursor movement routines; add near end cf listing 
Jn entry Dl contains the new move deita and is preserved 


Uses A4 


, 


norizontal 


Sus) KOUT 
add _xout 


set_xda@rif 


No_Keys 
* 


vertical 


descend 


¢ 


A6; 


tst.w 
beq.s 
move. | 
beq.s 
move.w 
move. | 
movea. | 
move .w 
movea.w 
add.w 
bmi.s 


noveq 


sub.w 
DCs .s 
Jee 

hita.2: 


moved 
add.w 
bpl.s 
jsr 
bra.s 


sub. 
ura.s 
aad.w 
GOVE .wW 
nove.1 
Nove .w 
rts 


tst.w 
beq.s 
move. } 
bey. s: 
move.w 


ifeq 
neg.w 
endc 


move. 
move. 1 
movea.w 
move .w 
add.w 
bmi.s 
MOVE 
SsuD.w 
bes.s 
jsr 
bra.s 


corrupts A5, A2, DY, D3, D7; I0.GiN hits A3 


Kkey_flag(a4) 
no_keys 
sv_keyq(a6) ,uod 
no_keys 

dl,da7 Save dGeita 

a2,d6 Save input queue pointer 
go ,az A2 -> Key queue 
a@rift_x(a4),a3 

SEO.w,a5d 10.QIN vector 

di,da3 D3 is total delta 
go_left 


Key entry uisablcd 


#right,dl 


step_x(a4),d3 
add_xout 

fat) fursor recht. 
nore 


Try a move 


#left,di 

step x(a4),d3 
sub_xout 

(ab) Cursor lett 
less 


I'iry a move 


step_x(a4j ,d 
set_xdri ft 
step. x(a4)},da3 
a3 ,darift_x(a4} 
a6,a2 

a? di 


Stcre cemaindger 


kestore serial queue 
Restore deita 


key flag(a4) 
no_keys 
sv_keyq(a6) ,d0 
no _keys 

di,d7 


No queue to be stlufted 


buttons-3 
ai Reverse Y direction 


a2,da6é Save SER yueue address 
agg,a2 A2 -> key queve 
SEO.w,ab A5 = 10.QIN vector 
drift_y(a4),d3 

di,d3 D5 1s totai delta 
go_up 
#down,di 
step_y(a4) ,a3 
add_yout 

(adj 

descend 


Try a move 
Don’t go too far 


board codes and variable 
offsets in the interrupt link- 
age. 

These variables are private 
to the handler and not 
directly available to Basic, 
but there are lots of interest- 
ing things among the inter- 
rupt handlers variables. It 
seems a good idea to have 
some way to read them all, 
so | have added a routine to 
do this in the DIY Toolkit 
Volume. The assembly code 
is similar to that for BUT- 
TON%, but the parameter is 
a word number to be used 
as an offset when reading. 

PTR_FN% can read any 
word of the DIY Mouse vari- 
ables. It takes one parame- 
ter, the offset of the required 
word, starting at zero (LAT- 
EST_X), so PTR_FN%(2) 
reads the right margin limit 
(the third word) PTR. FN%(4) 
reads STEP_X and so on. 
Parameters for PTR_FN% 
are tabulated near the start 
of the new assembler listing. 


Conditional 
Code 


The single file 
MOUSE _ASM can create 
eight different versions of the 
driver, so it uses conditional 
assembly. The lines 
between an IFEQ or IFNE 
and the matching ENDC are 
only included in the assem- 
bled code if the expression 
after the IF is zero (IFEQ) or 
non-zero (IFNE). if your 
assembler does not support 
conditional assembly you 
need to comment out the 
lines that you do not need. 

Set QKEYS to one or zero 
depending on whether or 
not you want extra code to 
give the option of keyboard 
emulation. You do not need 
this for 'mouse aware’ pro- 
grams that use extensions 
like PTR_X% and BUT- 
TON% to read the mouse 
directly and precisely, 

lf QKEYS is one the 
mouse driver has the ability 
to send cursor movement 
characters to the current 
task, So you can move the 
cursor with a mouse instead 
of the arrow keys. The sub- 
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* 


qo. up 


astond 


* 


Sub yout 


aud yout 
seu_yarift 


* 


movey 
add.w 
bples 
jsr 

bra.s 


sub. 
bra.s 
add. 
move .w 
MOVE .4 
move .w 
rts 


#up,dl 
step_y(a4},u5 
sub_yout 

(a5) 

ascend 


‘Try a move 


step_y(a4),d3 
set_ydrift 
step_y(a4),da3 
a3 ,dadrift_y(a4) 
d6,az2 


Restore seriai queue 
a7,dl 


Kestore new delta 


* Routine to translate buttons to key-codes; new puttons in Lo 


* 
button_Key 


* 


resture 


wits end 


est. 
beq.s 
tst. 
beq.s 
move.i 


beq.s 
Nove .w 
MOVE. L 
MOVE. 
novea.w 
nove .w 
btst 
beqg.s 
btst 
bne.s 
moveg 
jsr 
btst 
bey.s 
otst 
bne.s 
moved 
jsr 


ifeq 
btst 
beq.s 
btst 
bne.s 
moveg 
jsr 
endc 
MOVeS. WwW 


MOVEd. i 
rts 


do Any action? 
wits_end 
key_flag(a4) 
wits_end 
sv_keyq(a6),dl Is there a key queue? 


Key emulation on? 


wits_end 
au ,a7 

ae ,d6 bave -> Serial queue 
dl,a2 27> Key queue 
SEO.w,abs 45 = IO.QIN vector 
button_bits(a4j,d1 

#0,a0 
notl 
#0,a1 
notl 
#buttoni ,dal send new Keypress 

(ab) ignore ‘no room’ error 
#1,aU Buticn two? 

not 

#i,@i 

nota 
#button2 ,al 
(ad) 


No queue now so ignore 


Already down? 


Aiready down? 


Queue it 


bhuttons-—43 
#2,a0 
restore 
#2,a1 
restore 
#button3,dil 
(a5) 


'hird button? 


Try to queue it 


d?,dao 
ad6,a2 


Restore new buttons 
Restore input queue 
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sequent IFNE and ENDC 
directives ensure that an 
error occurs if QKEYS is set 
incorrectly. 

The second part of the 
assembler listing is marked 
off by a row of stars. It is a 
re-write of the two button 
Microsoft mouse driver, 
extended to allow co-ordi- 
nate wrapping and key- 
board emulation. 

The keyboard emulation 
and co-ordinate wrapping 
code was added by re-writ- 
ing the inner loop of the 
mouse handler, adding calls 
to three new subroutines 
HORIZONTAL, VERTICAL 
and BUTTON_KEY which 
issue key-presses as 
required, 

If the version 2 variable 
WRAP_FLAG is set then an 
overflow or underflow wraps 
the co-ordinate to the oppo- 
site edge of the screen. | 
decided it was better to 
copy and amend the four 
routines for each axis and 
mouse-type than to try to put 
conditional code in each 
one. 

The tweaks may appear 
complicated but should be 
reliable; | set out to intro- 
duce the smallest number of 
changes and new lines that 
would do the job simply, It 
would be possible to save 
bytes by merging the vertical 
and horizontal keyboard rou- 
tines, but this could intro- 
duce new bugs. 

The final section should 
be added before the names 
and addresses at the end of 
the assembly file. It contains 
code to emulate key-press- 
es by putting characters into 
the current key-buffer as the 
mouse moves, 

The mouse buttons also 
generate key-codes, corre- 
sponding to SPACE, ENTER 
and ESCAPE (if you use a 
Mouse Systems compatible 
pointing device with three 
buttons). These are the main 
keys for QRAM and most 
pointer-based programs, 

The code for PTR_KEY is 
not listed here as it is exactly 
the same as that for 
PTR_MAX, PTR_INC and 
their ilk, except that it adds 


24 to A4 - the offset of 
KEY_FLAG - after calling 
FIND_POS and before 
returning via SETWORDS. 


Performance 


| have tested all these pro- 
grams with an AXELEN 
dual-standard switchable 
mouse, which cost £10 at 
an All-Formats Computer 
Fair. The middle button is 
ignored when it is switched 
to Microsoft mode. The DIY 
Toolkit drivers have also 
been tested with a similar 
mouse supplied by Dennis 
Briggs. 

Seria! mice are widely 
available at low prices and 
come with a nine or 15 pin 
PC connector. If you own a 
British-made QL you need to 
replace this with a six-pin 
plug to suit your SER port. 
Samsung QLs have a nine- 
pin connector which may 
accept the PC plug, but 
you'll still need to check that 
the internal links match your 
chosen QL port, The neces- 
sary connections were 
explained on page 20 of QL 
Warld 1993 issue 119. 

Dennis Briggs of Adman 
Services can build you an 
adapter for £4 if you do not 
feel like making up your 
own. He can also supply PC 
mice complete with the 
required QL adapter and the 
full DIY software Volume for 
‘15 inclusive. Contact Dennis 
Briggs at Adman Services, 
53 Gilpin Road, Admaston, 
Telford, Shropshire, England, 
or call him on (0952) 
255895. 

The DIY mouse handlers 
check the format of the first 
byte of each message. If it is 
inplausible they discard it 
and wait for a valid one. This 
means that the handler re- 
synchronises itself at the 
start of the next complete 
message. 

if you are using a switch- 
able joystick with Sinclairs 
serial input chip, you will 
probably find that the two- 
button setting is the most 
reliable. Tnree-button signals 
are more likely to lose syn- 
chronisation if serial input 


Uo iMark MODE 8 mink MOUSE PAIN 
HEMarkK Use combinations cr 
2G hkiMark 3s Luttons to picr 8 
KeMark ceiours tor drawing 
tai KkbMack Uses OLY PLOT + DRAW exis 


2 BAUD i20u 
VO PLR_ON 
vO hEMark Fuli screen 
0 GPEN #35,scr_512x256a0xU 
PCO P'PRLMAX 311,255 
PTR_POS U,0 
PTR_KEY «0 


th BLINK (xa.,6.%) 

234 SEPEGKT pat 
OlLaxS=x5 >: Gidys=ys 
x§-PTR_X® : yYS—-PTR_Y¥ 
BLINK (@bdxS), (olays) 
(NK *#3,BUTYONS(0) 
PLOY #4,x38,y¥% 
ELENK (x+),{¥3) 

40 ¢oND RiPeadt pain 

CLUShL #3 


276 DEFine PROCedure BLINK{a,b} 


U “#bMark Non-destructive 
sou) OVER #43,-¢ 5 


2 IF asG = a> 


FLOY F353 ,at2,b 3 
45 PLOT #3 ,a,n12 
460 OVER #3,3 
470 FND OFine Ri INK 


gets lost The best way to 
avoid such problems is to 
upgrade your system with 
the Hermes chip, which dra- 
matically improves the per- 
formance of the QL serial 
inputs. 

The machine-code ver- 
sions read the serial input 
queue directly, but can still 
lose step if Sinclairs old IPC 
drops bytes on their way 
from the mouse to Qdos. 
This is most likely if the QL 
is busy with a device and 
cannot read serial bytes for 
a while. They pile up in the 
8049 co-processor, and 
soon overflow. 


Checklist 


If your QL Is otherwise fine 
but your serial mouse won't 
work, check these things 
first: 


(1) Did you load the cor- 
rect code file for your mouse 
and adapter? (2) Is the 
mouse plugged into the cor- 
rect port for the adapter? (3) 
Have you set BAUD 1200, 
PTR_ON, and PTR_KEY 1,1 if 


:REMarck Wrap? 


ee" aniceor 


DRAW #5,ate, Lbs 


: DRKAW #i,ar4,bobe 


needed? 

If the 
mouse is a 
switchable 
one: 

(4) 1s the 
mouse 
switched to 
the right pro- 
tocol (PC for 
three buttons 
or MS for 
two)? 


If the 
answer to any 
of these 
questions is 
no, reset the 
QL check the 
connections 
and settings 
and try again.’ 

If it still 
won't work, try 
the mouse on 
aPC or 
another QL 
system. If it 
works there, 
but it is erratic 
on your QL, 
you need Hermes to fix your 
QL serial input This is more 
likely with old three button 
mice than with the two-but- 
ton Microsoft breed. 

In either case, Hermes is 
an excellent QL upgrade, 
ideal for this purpose. It has 
proper serial inputs, written 
by a Bulletin board boss 
who knows RS-232 inside 
out, so it goes much faster 
and suits all sorts of serial 
devices. 


A New 
Mousetrap? 


Well, that completes the 
biggest DIY Toolkit project to 
date - We've ended up with 
over seven hundred lines of 
code, eight different mouse 
drivers, four SuperBasic 
demonstrations and six Quill 
files of documentation. DIY 
Toolkit Volume | also 
includes a Turbo-compiled 
mouse driver with keyboard 
emulation that works fine 
with Hermes. 

| plan to tackle something 
a little simpler in the next 
DIY Toolkit project; as ever | 


need your suggestions for 
the column. Readers have 
sent in dozens of good 
ideas over the years, and I've 
implemented most of them. 
If there's anything new you'd 
like to seé in SuperBasic, 
please let me know the 
details and I'll write it for you, 
and the other DIY Toolkit 
enthusiasts. 


Update 


- {ve made a couple of 
improvements to the 
INPUTS and SET.POS code 
in QL World 1993 11.8. The 
DIY Volume has been 
updated and | want to share 
the new code with people 
who type in the assembly 
listings straight off the page. 

The INPUTS function 
upsets Turbo and 
Supercharge because it 
does not set Al on exit. The 
compilers use the register 
value, rather than BV.RIP, to 
find the result. Section 10.7.5 
of Adrian Dickens’ QL 
Advanced User Guide says 
that both A1 and BV.RIP 
should be set appropriately, 
but QL roms only look at 
BV.RIP, while the compilers 
use Aj. 

| didn't spot this for a while 
as interpreter tests worked 
fine and Turbo comes with 
its own INPUTS function. To 
correct the assembly code, 
add the line MOVEAL D5A1 
after the line annotated SET 
BV.RIP, near the end of the 
code for INPUTS. 

My article said that 
SET_POS goes to the end of 
a file without error if asked to 
move to a position past the 
end. This feature was not 
used in the accompanying 
SuperBasic, and it seems | 
forgot it, as users are getting 
an End Of File report. This 
code traps any EOF error 


. after the TRAP #3: 


TRAP_EOF CMPW #- 
10,00 

BNES RETURN 
MOVEQ  #0,D0 
RETURN RTS 


Mea Culpa! Thank you for 
alerting me to this mistake. 
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In part 7, Alan Bridewell introduces Trap Calls. 


n part 6 we started to 
look at how we can 
make our machine code 
routines do the kind of 
things we really need them to 
do: opening channels, writing 
to the screen, and so on. What 


we do not do is to actually 
write the code to do this our- 
selves because the code 
already exists in the QL's rom. 
All we need to do is to access 
this code and incorporate in 
our routine. 


Rom Routines 


The routines in the rom are 
of two types, called "vectored 
utilities” and “trap calls”. In part 
6 we looked at vectored utili- 
ties, So now we shall 
move on to trap calls. 
As far as running your 
programs is con- 
cerned there is no not- 
icable difference 
between the two types 
of routine. If you have 
the facility to trace 
through your machine 
code, one instruction 
at a time, you will 
notice one difference. 
When you use a vec- 
tored utility, you will 
trace through the 
whole subroutine as 
though it was part of 
your code, When you 
use a trap call. it will 
not be traced, 

As far as you, as 
programmer, are con- 
cemed, the big differ- 
ence between veo- 
tored utilities and trap 
calls is the way you 
access them in your 
program. However, we 
should look at what 
exactly a trap call is, 
although much of the 
detail of this is very 
hard going, and not 
really needed unless 
you intend to do some 
high powered pro- 
gramming. | shall only 
cover it in outline. 

The microprocessor 
in the QL can operate 
in two modes, called 
“user mode” and 
“supervisor mode". 
User mode is what 
programs normally 


use, and everything mentioned 
is this series of articles is in 
user mode. When the proces- 
sor is in Supervisor made, the 
program in user mode is tem- 
porarily suspended, while spe- 
cial Supervisor mode routines 
are run. These routines can be 
exactly the same as user 
mode routines, but can also 
contain some special “privi- 
leged” instructions. 


Supervisor 
Mode 


Much of Qdos works in 
supervisor mode, and users 
would not normally want to 
write Supervisor mode code 
unless they were trying to get 
Qdos to do something it was 
not designed for. This is usual- 
ly restricted to people writing 
software to run hardware 
which Qdos cannot operate 
without Some extensions, for 
example, disc drives. This kind 
of programming is well outside 
the scope of these articles. 

Trap calls are Qdos routines 
which run in supervisor mode. 
The TRAP instruction allows 
the user mode program to 
access the supervisor mode 
routines in a very controlled 
way, which prevents you caus- 
ing something nasty to hap- 
pen by mistake. It allows you 
to input whatever parameters 
you wish into the routine, and 
then the supervisor mode rou- 
tine tries them out If it can 
make sense of them, it will 
carry them out. doing whatever 
the routine is supposed to do, 
before returning to user mode 
at the next instruction in your 
code, with no error code. 

lf ii cannot make sense of 
them, it will also return to user 
mode at the next instruction in 
your code, but this time return- 
ing with an error cade in regis- 
ter DO. What this means is that 
your mistake will not crash the 
machine, as long as you take 
appropriate action on receiving 
the error code. 


16 Calls 


The microprocessor recog- 
nises 16 different trap calls, 
numbered #0 to #15, but the 
QL only uses the first five, #0 
to #4. Trap #0 is concerned 
with going into supervisor 
mode, and unless you are an 
expert or are intent on crash- 
ing your machine and maybe 
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ee 


Hit. bean eal4 


torte 


multitasking jobs, keyboard 
access, clock, and various 
other bits and pieces that can 
be grouped under the name 
“management”. 

Trap #2 is the input and out- 


even damaging your hardware, 
you should leave well alone. | 
shall not mention it again. 

Trap #1 is the manager trap. 
lt is concerned with all the 
memory allocation, priority of 


§ 2=KESPR(S1Y) 
LBYTES flp2 LISTINGL erde,z 
2) CLSée0 CLS#1.CLS#2 
@ PRINT#, "After each screen ja loaded, you can press 
® PRINT#O. "or <BSC> to quil the program.” 
PRINT#S, “Fress <ENTER> to continue...” 
REPeat loop 
IF CODECINKEY$(43,-1))=i8 THEN EXIT loop 
END REPeat loop 
REVesat tain 
CAEL. % 
J REPeal soop2 
hey = CORECNAFYS$(48,- Le) 
S$ skLevct ON key 
22. £X1T loupe 
4 08 | SCOP 
O END SELect 
EN) &Eeat loupe 
PEND ABPeat iain 
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SPACE> 


put allocation trap. Its work 
involves formatting microdrives 
and discs, opening and clos- 
ing channels, and deleting 
files. 

Trap #3 is the input and out- 


‘so prompt for anattier file 


put utilisation trap. Having a 
channel open already, this trap 
can do whatever can be done 
to the channel. This will, of 
course, depend on what type 
of channel it is, a screen or 
console, a new file to be writ- 
ten to, an old file to be read, or 
maybe overwritten. Most of the 
interesting things you might 
want to do are done by trap 
#3 calls. 

Trap #4 is concerned with 
making adjustments for certain 
addressing modes when using 
SuperBasic. It need not gon. 


cern us here. 

So how do we use these 
trap calls? The method is very 
similar to using the vectored 
utilities mentioned in part 6. 
First we must make sure all 
the necessary parameters are 
in the correct registers, and 
any data or parameter tables 
have been correctly set up. We 
then have to make sure the 
trap call knows which we want 
out of the various things it can 
do. We do this by entering the 
correct number into register 
DO. Finally, we use the instruc- 
tion TRAP with the apprpriate 
operand (#0, #1, #2, #3 or #4), 


Open and Close 


To show how this works, 
Listing 1 is a routine which 
uses trap #2 to open and 
close a file, and trap #3 to 
input text to a window, and 
load a file to the screen. It 
does the same thing you can 
do from SuperBasic with the 
LBYTES command using the 
screen ram address. In order 
to make sense of the rest of 
this article, you will probably 
have to read it alongside 
Listing One. 

It starts by opening a con- 
sole channel with the vectored 
utility used in part 6. The differ- 
ence in this case is that the 
parameter table has already 
been set up to give the 
required window, so it does 
not require the CALL from 


SuperBasic to give the para- 
meters. (This is the way the 
utility would normally be used. 
lt was only done that way in 
part 6 to enable experimenta- 
tion.) As before, we shall store 
the console channel |.D. 

Next, we need a prompt in 
the window. This involves writ- 
ing some text to the window in 
exactly the same way as in 
part 6, so this needs no further 
explanation. 


The program now needs to input the name of 
Liat 2 the file by fetching a line of characters from the 
keyboard. This is part of input/output utilisation 
and involves a trap #3 call. Before the trap call 
can do this it needs the channel ID of the console 
; (2a oe oe ae channel in register AO. It also needs the address 
LH Iku Se ae of a buffer to store the text in register A1 with the 
ca length of the buffer in register D2. In order to make 
LEFine Function DECIMAL) sure the characters going into the buffer do not 
KitTurn CODECASOxH) 48-7 fb SExde"9 7) overwrite your program or parameters, the buffer 


O ERY DeRPime DECIMAL 
Sh QUE oR Rte ANd. ait knows which bit of 


input/output utilisation it is to do, it needs a num- 
ber in register DO to tell it. The number for fetching 
a line of text is #2. (This number is usually given 


@ tEMark oliclatr wi World HEX LOADER ¥ 5 
a RMMAarsA by Mares Jeffery A Sian NS gogawin 


ihe PROCUGaUGe HEX LOAD [starts 


“ORMUT toad tex aisies 


ae OS eo vaw dein tor Age the label IO_FLINE, aad your assembler may 
See ee Oe ep ee a accept this label instaed of the number) 
iN UF Finally, trap #3 requires a “timeout” in register 
sie ENA Ror kt D3. This fs the time, in fiftieths of a second, the 
OR ADILS OR ibea OR Ib915 call will wait until the utilisation is completed. It will 
ESHA, MEROAIER TEs, GAR STOR also accept zero to mean “don't wait at all” and -1 
2 star. bye, 16 "hbs it to mean “wait for ever if necessary’. Frankly, | have 
ae always found a timeout of -1 works fine, and that 
> BAU FOR Bb is what we shall use. 
HEAL 8Eveat Ioad hex devia With all the parameters correctly positioned in 
fe the registers, we make the trap call with the line 


INT "Cheenstiu inevrrect kechech dala. "STO! 


wily 


J PRINT “Cheeksua sorrent. Data @otiered al: "istart TRAP #3 


WN DEKine HEX LOA 


i ey bala reyjuirements tor the machine code At this stage, we could check register Do for an 
error code. Apart from an error in typing in the list- 

“JUPA@ORG" KEMark LEAL COn At ing, the only possible error is a file narne which is 

Hay awe” REMarkh MOVE A W SCG AL : . u 

RE Mere Ske ror too long for the buffer, which would give a “buffer 

"43 AGHBE": KEMarh LEAL IW.Al overflow" error. Since we have made the buffer 

aaPAQORE™KEMACK — PTENT “UEAL PAL 100 bytes long, this is very unlikely to happen. | 

"28617: KEMark MOVELL — {Ai).Ap shall come back to this point later, 

A@WB4" KEMark LEA i TexT Al 
‘A “US THORN" REMarn MOVEA.W SOW,AE 
4 "JE92" REMurK SSH (Az) a 

“ASP ADOT KE Mark LEAL 1D,AL Juggling 

AMS) REMark MOVE. CAL},AW 

“AUP AGiad" RE Mark LEA.L BLE FERAL , 

"FBS REMark MOVE 782.00 With a successful trap call, the buffer should 
co Neeeeae now contain the name of the screen file we wish 
ar ce to open. We now have to use that name to actual- 
SUBQ.L  #1,b ly open the file. However, in order to do this, we 
LEAL BUPPOS Ad i j j 

; me sii need to do a little juggling, because the buffer 
MOVE W Bays P : : : ; 
LEAL BUFPOS,A8 does not contain the file name in quite the correct 
MOVEW wali form. 
MOVEy #-1,Di 7 7 Fy 
MOVE #1,D8 The trap #3 call will leave the file name in the 
POR UNTA, “AEE RE Mark TRAP #2 buffer. But the string of characters will contain the 
i oOATA Y" RE Mark TST.L bt { 
DATA “GTOA" REMark BEQ.S Gait Pie line feed character we get when we press Enter at 
DATA "SA?8Q0CA™:REMach MOVEA W  3CA,D2 the end of the line. It also leaves the length of the 
“dE92": REMark ISK ee * 7 . ' : : g 
jeg ba 4 {Az} string (including the line feed) in register D1. 
: ReMark IMP PT&AT g A g 
(REMark  GOT_BILE LEA.L VILE.AL Now the trap #2 call we will use to open the file 

"22KB" -REMary MOVE. © Au,(Ai} i i i i i 

Ss vine REL aes requires the 7 name ina slightly different form. It 

S27 COPUZBUYA"-REMark MOVEA i #$2ynen A! expects the e name to begin with a word (two 

TORE ebiaty MOVEQ #-1.Da bytes) which give the number of characters in the 

btn cea eae file name, followed by the file name itself, but with- 

ae. ; TRAP aS out the line feed character at the end. To get over 
° 24" KE Mar LEAL FILE.Al j j 
eit RaGEL WiVEkA. tell ae this difference, we reserve a word (two bytes) 
MOVES Pea immediately before the buffer. We have labelled 
aie fe a this word BUFPOS. We subtract one from the 
MOVER LL (AL),A@ character count in register D1, and then move the 
s MW Et 62,00 resulting number into BUFPOS. If we now use 
OM TRAP 2 . 
05" REMark RTS BUFPOS rather than BUFFER as the name of the 
OU REMark Hels BC.W $0205 file to be opened, it will be in the correct form, 
-REMarh bow ; ‘i 4 raat 
“S200 -REMati Sow > starting with the word giving the number of char- 
rae HeMark DC.wW . acters, followed by the characters themselves. 
3 : ar uCL& 
“aba BENack. aot ene: Because we have subtracted one from the char- 
"MOOBBOBB":REMark 1D DELL sosuepuo” acter count, it will ignore the line feed character at 
“POBPOOBO"REMark .PILE DCL. SORHOHNUR the end 
"QOU0" -REMark TEX? ou.W sec : ‘ ¥ 
“464 94C45204E5 1S45203F20".REMark DCB “PILE NAME =" The next step is to open the file with the trap #2 
EU Ligh", LBS call. Before we can do this we need to put all the 


appropriate data into the registers. Register AO 
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must contain the address of 
the file name, BUFPOS. 
Register D3 must contain a 
number depending on what 
kind of file is to be opened. 
The file is an old one, and we 
may be sharing it {it may also 
be read by another multitask- 
ing program at the same 
time), and this requires a one 
in register DS. 


Job ID 


Register D1 requires the job 
ID of the job using the chan- 
nel. It is possible for one multi- 
tasking job to open a file for 
another, in which case, the 
appropriate job ID would need 
to be found. However, the trap 
call will accept -1 in D1 to 
mean “this job”. 

Finally, it needs a one in 
register D1 to tell it open the 
file. The number one has the 
label IOLOPEN, which your 
assembler may accept in 
place of one. We can now 
make the trap call with the 
instruction 


TRAP #2 


This time we must check for 
an error after returning from 
the trap call. Even if our code 
is correct (and it should be) 
there is the very good chance 
that the file name typed in is 
incorrect so that no channel 
has been opened, in which 
case we need to take appro- 
priate action. 

There is a general rule here. 
lf the parameters are written 
into the program, there should 
be no error, and so no need 
to check. But if any of the 
parameters come from user 
input, an error is possible and 
should be checked for. 

In part 6 we tested for an 
error return by comparing reg- 
ister DO with zero using the 
instruction 


CMPILW_ #$00,D0 


CMPI is a general instruc- 
tion for finding out if we have 
any particular value, or a big- 
ger or smaller value. But when 
we do error testing, we are 
only interested in whether we 
have a zero or a negative 
number. For this we have 
another instruction, TST, which 
is rather more concise, and so 
runs faster. Normally, we 
should use TST for error test- 
ing. | only used CMPI before 
because it is a very useful 


instruction in many situations, 
and is well warth being famil- 
iar with. 

What TST does is simply tell 
us if the number we have is 
zero or negative by setting the 
appropriate flag in the status 
register. This is exactly what 
we need here. 


Branch and 
Hang? 


After the TST instruction, a 
BEQ instruction will branch if 
the zero flag is set (ie no error) 
to the next bit of code when 
everything goes to plan. In our 
program this has the label 
GOTFILE. But what do we do if 
an error is detected, and the 
program goes to the next 
instruction, instead of branch- 
ing to GOTFILE? We could 
simply abort the program and 
return to SuperBasic with a 
RTS instruction. This would 
not crash the QL, but it would 
drop you out of the program, 
which might be just as annoy- 
ing. There is a much better 
alternative, 

There are really only two 
possibilities for the error. It 
could have been an error in 
typing in the file name, or it 
could be that the file you want 
is not actually on the medium 
in that particular drive. Either 
way, the best thing to do is to 
print an appropriate error mes- 
sage on the screen, then loop 
back to allow you to retype 
the file name. This is what the 
next three lines do. 

When the file is successfully 
opened, the file channel |.D. is 
left in register AO, so we store 
it in a space reserved for it 
with the label FILE. 

The next job is to load the 
file into the screen ram with a 
trap #3 call. To do this we 
need the file length in register 
D2. If it is a normal screen file 
it will be 32K long, which is 
$8000 in hex. The address to 
start loading must be put in 
register Al, and this is the 
start address of the screen 
RAM, $20000. To indicate an 
infinite timeout we put -1 in 
register D3. To show that what 
we are doing is loading a file, 
we put $48 in register DO. 
($48 has the label FS_LOAD 
which your assembler might 
accept in place of $48) This is 
finally followed by the trap call 
with the instruction 
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TRAP #3 


lf all has gone well, your 
saved screen file should load 
into the screen ram and 
appear on your screen. 

At this point we should tidy 
things up by closing the chan- 
nels we have now finished 
with, that is, the file channel 
and the console window 
channel. This is done in each 
case by loading the channel 
ID into register AO, loading #2 
into register DO (#2 has the 
label IOL_CLOSE which your 
assembler may accept) and 
then making the trap #2 call. 
After all this we return to 
SuperBasic with RTS. 

After the code come ail the 
various Spaces reserved for 
parameters and data. These 
can come in any order, except 
that the BUFFER should come 
last (and, of course, BUFPOS 
must come immediately 
before it) 


Listings 


Listing Two is a small 
SuperBasic routine to run the 
code. It needs no explanation. 
Listing 3 is the code con- 
tained in Marcus’ and Simon's 
Hex Loader for those who do 
not have an assembler. 

Having got the thing to 
work, the next job is to experi- 
ment with it to show that you 
really do understand what is 
going on. You could do sim- 
ple things like changing the 
window parameters, or chang- 
ing the prompt, but that has 
no impact on the trap calls, 
There is a much more obvi- 
ous improvement you could 
try. 

As the program stands, you 
must eventually give it a 
usable screen file name, oth- 
erwise it will repeat the 
prompt forever, or crash ihe 
system when you try to load 
the wrong file type. Either way, 
if you can't give it a usable file 
name, you will have to reset 
the QL to get back to 
SuperBasic. 

One way out of this is to 
test for a zero string length 
before trying to open the file, 
and jumping to a RTS instruc- 
tion if a zero string is found, 
This will enable you to leave 
the program by pressing Enter 
at the prompt without having 
to give a file name. This will 
make it a lot more user friend- 
ly. 


Subtle ... 


For something more subtle 
you can look into this. In this 
program we have religiously 
saved each channel ID and 
loaded the channel ID back 
into the registers when they 
are needed, While in general 
this process is necessary, if 
we are using a channel imme- 
diately it is opened, the chan- 
nel ID is already in the register 
and does not need reloading. 
Also, if we are not going to 
need it again later, there is no 
need to store it, It is an inter- 
esting exercise to see how 
many redundant lines of stor- 
ing and reloading channel IDs 
can be removed and still 
allow the program to run. If 
you can do this successfully, 
then you probably have a 
good grasp of how the pro- 
gram works. 

This article only gives a 
glimpse of what can be done 
with trap calls. To go further 
would need long lists of all 
the things the trap calls do 
and what needs to be in each 
register for each operation. | 
have already mentioned pub- 
lished works which contain 
this information. | would sim- 
ply add to this list my own 
series of articles “Systematic 
M/C Programming’, which 
were printed in QL World from 
October 1991 to September 
1992. They contain a lot of 
examples of the most useful 
trap calls, particularly the arti- 
cle in February 1992, which 
covered most of the trap #3 
calls. 

Happy coding! 
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Code 
part 7 
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QL WORLD DIY TOOLKIT - MOUSE/POINTER DRIVER + KEY EMULATION 
Links SuperBASIC and Qdos key queues to a PC serial mouse 
Version 2.8 updates only, Copyright © 1993 Simon N Goodwin 


Extensions over version 1.n: 


2.2 
2.4 
2.7 
2.8 


+ Q 
al 
@ 
NM 
n 


Optional co-ordinate wrap-around at screen borders 

PTR_KEY extension to control wrap and key emulation 
Optional Keyboard emulation for cursors and buttons 
PTR_FN% function to read pointer characteristics 


equ 1 Configure to zero or one 


** 2.0 ** Ensure QKEYS is valid (0 or 1); value is used later 


* 


* 


ifne qkeys 

ifne qkeys-1 

fail QKEYS O or 1 = key emulation 
endc 

endc 


xk 2.0 ** Key codes 


* 


left equ 192 Cursor arrows 

right equ 200 

up equ 208 

down equ 216 

buttonl equ 32 Space 

button2 equ 10 Enter 

button3 equ 27 Escape 

* 

sv_keyq equ 76 Key queue system variable 
* 


* These variables are relative to PREFIX 


* 


* PTR_FN% 
latest_x equ O fe) Current co-ordinates 
latest_y equ 2 1 
limit_x equ 4 2 Right margin limit 
limit_y equ 6 3 Top margin limit 
step_x equ 8 4 Counts per horizontal move 
step_y equ 10 5 Counts per vertical move 
button_bits equ 12 6 Bits shadow each button 
synchro equ “14 7 Input byte number, 1 to 3 
initial equ 15 Two-button initial byte 
serial_id equ 16 8+9 Zero or serial channel ID 
* 

ifne qkeys 
drift x equ 20 10 ** 2.0 ** Accumulated X drift 
drift_y equ 22 12 Accumulated Y drift for keys 
key_flag equ 24 12 Set to request key queueing 
wrap_flag equ 26 13 Set to allow wrap at edges 

endc 

* 
var_end equ 20+qkeys*8 *x* 2.0 ** 8 bytes key space 


* 


KKEKKEKKEEKKEKKEEKKKKKKEREKEKREKKKKEKKEKKEEKKKEKKEKRKKKKKKKKKKKKRKKEKEEE 


* 


+e + ee OF 


BUTTON KEYBOARD EMULATION & CO-ORDINATE WRAPPING UPDATES 


Replace BPL.S with word BPL to BYTE_THREE 
Insert BSR BUTTON_KEY before storing DO at BUTTON_BITS(A4) 
Revised X and Y move handlers: 


La 


2 


‘25 ze ae ae or 


af 


‘oe aF “a2 ae 


‘aa an et 


aT) 


ey 


, ; ue 
ecaingt ( 


ERIE RE KER ERE EE RE EE EHH EKER RIK EEK RHEE EERE EER EERE KERR EK EER EEE EER RK 
OPEN & CON CHANNEL 
ERE EERE EK REE KK EEE KR RRR HERE RHEE EEE EE EEE ERK HE EER EERE EERE EEE EERE RR EE 


MEN LEALL CON,AL ; CON TABLE FOINTER IN Al 
MOVER.W 406,42 ; UT_CON VECTOR IN Az 
JSR (AZ) 3; OPEN CONSOLE CHANNEL 
TORE LEAL ID,Ai 3; CHANNEL ID STORE IN Ai 
MOVE.L AO, (ALD 3; STORE CHANNEL ID 
FREI RHEE HEE RHE RRR RER EERE EERE EEK EKER EER KKK EERE KAR ERKE ERR EKER RRR 
WRITE TEXT IN CON WINDOW 
ERK RRR KE EERE RHEE ERK HE EERE RRKEKREE KEKE KEREKEKRRKREKHKE EA KRKEE KEE RARE EKER RH EK 


TEXT LEAL ID,Al ; CHANNEL ID STORE IW Ai 
* MOVER-L (A1),AQ® 3 CHANNEL ID IN AO 

LEA.L TEXT,Al 3 BASE OF TEXT IN Al 

MOVEA.W #€D0,A2 ; UT_MTEXT VECTOR IN Ag 

JSR LAD) ; PRINT TEXT 
ERE RERKE REE RHE EERE RRE RE CEE EEEK HEHE K EERE EKER KERR ERR ERR ERHE KR KR KHER ERR REE 

FETCH A LINE OF CHARACTERS 

RR ERE EEE EEE KR ERK KEE ERK EEE ERK E RK EER HERE REE EERE RE KE KEE RHR ERE HO 


ETCH LEAL ID,A1 ; CHANNEL 1D STORE IN 41 
MOVEA.L  (81),80 3 CHANNEL ID IN AO 
LEALL BUFFER,A1 ; BUFFER ADDRESS IN 41 
MOVE #2,D0 5; #IO0_FLINE IN DO 
MOVE. W #BUFLEN,D2 ; BUFFER LENGTH IN D2 
MOVEQ #-1,D3 3 INFINITE TIMEOUT 
TRAP #5 


THIS LEAVES THE LENGTH OF THE STRING (INCLUDING THE LF) IN Di. 

IF WE WANT TO USE THIS STRING AS A CHANNEL NAME, WE NEED THE LENGTH OF 
THE STRING (WITHOUT THE LF) JUST BEFORE THE STRING ITSELF (WHICH IS NOW 
STORED IN THE BUFFER). SO:s—- 

SUBTRACT 1 FROM THE STRING LENGTH.... 


SUG L #1,01 ; SURTRACT 1 FROM Di 
ae ee AND PUT THE RESULT IN BUFPOS, JUST IN FRONT OF BUFFER 
LEA. L BUFPOS,AO ; LOAD BUFPOS IN AO 
MOVE .W D1, (AO) > PUT CONTENTS OF Di IN BUFFOS 


KK EEE KE KHER HE EHH KEKE REE KEK KEEE EERE ERE RE EERE EER EERE 


OPEN THE FILE 
HIRE EH RHEE HEE RE RE RE EER EEK EEK KHER KE ER EH RKEKREE EK EER EER KEE RE RE 
LEA.L BUFPOS,AO ; BUFPOS IN AO 
MOVEG #1,D3 ; OPEN AND OLD, SHARED FILE 
MOVEG #-1,D1  )3; -1 IN Di MEANS ‘THIS JOB’ 
MOVEQ #1,D0 3; #I10_OPEN IN DO 
TRAP #2 
TST wt. DO 2 IS THERE AN ERROR’ 
BEG. S GOT_FILE ; IF NOT, CONTINUE. . 
«ELSE... . 
MUVEA.W #CA,A2 ; ERRO IN A2 
JSR (AZ) * 3 PRINT ERROR MESSAGE IN #0 
OMP PTEXT 3; REPEAT PROMPT 
STURE FILE CHANNEL 1.D WHICH IS NOW IN AO 


GOT PILE 


NOW LOAD THE FILE 


‘store oar 


fage 28 


ALDORESS UF FILE IN AL 
CONTENTS OF AO INTO ADDRESS 


FILE,A1 
AO, (AL); 


LEAL 
MOVE. t 


INTO THE SCREEN RAM 


MOVE. L ##8000,D2 ; FILE LENGTH IN D2 
MOVEA.L #$20000,Al1 3; LOAD ADDRESS IN Al 
MOVES #-1,D3_ : INFINITE TIMEQUT 
MOVEA.L FILE,AG }; FILE CHANNEL I.F IN 40 
MOVED _#$48,D0 ; FS_LOAD INDO 
TRAP 3 
: KEKE LEME KER ERR ER EERE EH ER EERE EKER ERE EKEHK ER HE ERE REE KEE RHE REE ERE EEE RE 
: CLOSE THE CHANNELS 
& HR HE eR EE BIKE RHE BE RHI HH RE BRE R HR K RH RRE RHEE RK H KE RKREHKER RE RK RK ER REE HE 
CEA. L FILE,AL : ADDRESS OF FILE CHANNEL I.D. 
MOVEA. L (Ai),AO + INTO AO 
MOVEG #2,D0O ; I0_CLOSE IN DO 
TRAP #2 ; CLOSE FILE 
LEA. ke ID,Al * ADDRESS OF CONSOLE CHANNEL 1I.D. 
MOVEA.L. (A1),AO 3; INTO AO 
MOVEG #2,D0 ; IO_CLOSE IN Do 
TRAP #2 ; CLOSE CONSOLE 
RTS ; RETURN TO SUPERBASIC 
: He He Fe EE EE EEE EE EEE HEHEHE REE EHR EHR KEE EERE HR KE KE EEK ERR HE KE CHEEK 
: SPACE RESERVED FOR CONSOLE CHANNEL FARAMETERS 
. CON DC.W $0203 ; BORDER COLOUR & WIDTH 
DC.W £0402 > PAPER & INK COLOUR 
DC.wW £0200 ; WIDTH 
DC.W £0010 > HEIGHT 
DC.W £0000 : X ORIGIN 
DC.W £0000 : Y ORIGIN 
; SFACE RESERVED FOR CONSOLE CHANNEL I.D. 
.ID NO.L #00000000 ; CONSOLE CHANNEL ID 
; SPACE RESERVED FOR FILE CHANNEL I.D. 
PILE pO. £OOOOOOOO ; FILE CHANNEL I.D. 
: TEXT TO BE WRITTEN IN THE WINDOW 
TEXT Dc.wW £0C : NUMBER OF CHARACTERS 
DC.B "FILE NAME ? " = CHARACTERS 
.BUFLEN EQU 100 : LENGTH OF INPUT BUFFER 
. BUFFPOS pc.W oO 
. BUFFER EQU * 


ae Se gk 


REE ERE EEK EEK EEE EEE EEE EEE HEE ERE KEK EERE K EEE EREE KEE EERE R ERE REE ERE REE RE 


hehe nme I 
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Dilwyn Jones Computing 


41 BRO EMRYS, TAL-Y-BONT, BANGOR, 
GWYNEDD, LLS7 3 YT, GREAT BRITAIN 
FAX/TEL: (0248) 354023 


DATABASE SOFTWARE 
COCKTAILS WAITERE10 00 
DATA DESIGN 3. 


GENEALOGY 
GENEALGGISE S$ sscssspcsssmsscisepcmcnpcemnocspesingml £60.00 
new pointer driven version 


SCREEN DUMPS 
SIDEWINDER PLUS, .sesossscsemsescorenemesseemeessrennsemt £24.95 


Upgrade 2nd Edition 2..vss.co0o 

upgrade other versions, ask 

GENEALOGIST 2ND EDITION 

BUDGET 128K GENEALOGIST U ecsesosossevssssveeree £12.00 
SUPER DISK INDEXER ..ssssssrsssssmesrssrnossesseresssepneee £12.00 GRAPHICS 
TMA ESTN Cs sesisinicmccunscsresscclseprmctcateesppsssccarne £10.00 
IMAGE PROCESSOR . 


3 5” DSDD DESKS 0. cssssrsryoncvenscssraposesvnrssssnvonsees wn £0.40 
FS DASHED DISKS 00 xcsrssststiensssenerricnsssinssneeniicl £0,70 
3 5” DISK LABELS (roll 100) ..... 

3 5” LABELS (printer rol) 

ADDRESS LABELS (roll 100) scscss-movssneesmerssenssssnseseee £2.00 
MICRODRIVE CARTRIDGES ...... 

MDV LABELS (roll 100) 

DIQUSE MAT  sisssncstiiesineccocteiuincn = f 
3:5" DISK DIVIDERS | QO) cscccrsicm—ionisesvtaseesiceonrsees £3.00 
Add £0 50 postage for labels or mouse 

mat if only ordering those, or £2 50 postage 

for disks or disk box divider sets 


DTP & CLIPART 

PAGE DESIGNER 3. 

Available at last! 

UPGRADE FROM PD ccsssescccssssssosvescccscssssvenecczcic £25.00 
SCANNED CLIPART 2 (U) .vvessses 

SCANNED CLIPART 2 (U) sense 


SIMPLE VIDEO TITLES 
TRANS24 (U) reseoomereteree 


HARDWARE 
MICRO PROCESS CONTROLLER 


QPOWER REGULATOR ostccssssnssesssesssesesssvsen wn vveeee£ 24.95 
(unsuitable Gold Card) 

SERMIGUSEE sccsssesccxsseccessssccsssnr ssi umtessnt sca ewen£ 40,00 
VOICE ANALYSER-New! 

Ask for details and price 

Add £2 50 postage for MPC, 

SERMOUSE AND VOICE ANALYSER 


SPELLBOUND SE cosssossesssssossssmsanesssnanencersiatsnescennt £50.00 
TEEXTIDY  ssvsceernniatesotensavesou niasesorinnstisenveesotetansessresies £15.00 


QL TECHNICAL REVIEW ...... 

issues 1-8 available 

QL ADVENTURER'S FORUM vssssssssmsvvsssssnnosesssee wih Zo 
Issues 1-9 available 


OPAC ise creche scan annonce pp eae wee £39.95 
THE Pointer Environment package! 


issues ]-2 available 


(UX prices only show) SCREEN ECONOMISER (U) cosssssssonsersnersserseesns £10.00 


SLOW GOED OD sisscisemecsactivinscercstiibipinins scone £5.00 
SPEEDSCREEN (U) -mnssssmoneen 

SPEEDSCREEN EPROM (U) 

TASKMASTER, -rsscssssssorenee - 

VISION MIXER I sesso , 

VISION MIXIER PLUS —.rsscsrsossneronnssssrsssamvnnesanvien £22.50 


CALL OR WRITE FOR A FREE COPY OF 
: OUR QL SOFTWARE CATALOGUE 
MEGATOOLKIT EPROM (U) conenvvovesorrvevneesnrsssene £40.00 DETAILING AROUND 100 QL PRODUCTS 
(DETRERATOR 3 36 jescanssesscsssncsnsainaisoani serene 50,00 
BUDGET QLIBERATOR (U) sevseoossossersssoneenenseerreern£ 25,00 
QLOAD AND QREF (U) sscssneomononesererernesnsservoomd 15.00 
S EDIT EDITOR oc —assscsvrsneseosssoereeasneseonssnive 


PLEASE NOTE: (U) ABOVE MEANS THAT 
THE SOFTWARE IS SUITABLE FOR USE 
ON A 128K QL 


TERMS: POSTAGE-software sent post free to UK, overseas add £1 00 per program (maximum £3 00) Floppy disks, SERmouse, etc add £2 50 postage (see 
above) PAYMENT - IN UK currency (pounds sterling) only, please Valid methods of payment are cheque drawn on UK branch of bank or building 
society, Eurocheque, Postal Order, cash (send by registered posd) or by credit card - Visa, Access, Mastercard and Eurocard accepted Please make cheques 
etc payable to DILWYN JONES COMPUTING Minimum order value £5 00 (due to bank charges) Goods remain property of Dilwyn Jones Computing 
until paid for in full Orders normally sent out within a few days of receipt, we will attempt to advise if any delay anticipated due to stock problems Orders 
can be accepted by telephone if paid for with credit card Orders paid with credit card can only be sent to cardholder’s address under card company rules 
FAX - We now have a Fax machine on our usual number (0248) 354023 


